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MSX ORGEL 

HEJ VENNER 

Hermed et godt program til Jer der 
er interesseret i musik, Programmet 
sætter dit eget Orgel op p& skærmen 
og du spiller løs på dit Computer 
tastatur som p& et andet: 

STEINWAY FLYGEL 

Tonerne kan endda ændres efter egen 
smag. 

God fornøjelse fra Jeres MAESTRO 
JOHNNY B MUSIK SILKEBORG 


10 ' 

**** 

************************ 

20 ' 

* 


* 

30 ’ 

* 


* 

40 ' 

* 

MSX - ORGEL 

* 

50 ' 

* 


* 

60 ' 

* 

lav din computer 

* 

70 ' 

* 


* 

80 ' 

* 

om til et orgel 

* 

90 ' 

* 


* 

100 

• * 

fundet af Johnny B 

* 

110 

' * 


* 

120 

* * 

SYNTAXEN - 1988 

* 

130 

' * 


* 

140 

• * 

En hel eftermiddag 

* 

150 

* * 

brugt til at lave 

* 

160 

i * 

MSX tegn til chr$ 

* 

170 

• * 


* 

180 

• * 


* 

190 

' **** 

********************* 

*** 

200 

SCREEN1,0,0:WIDTH32:KEYOFF 

: CLS 

210 

PRINT 

:PRINT: PRINT" Efter 

opstå 


rt af programmet da 
220 PRINT" kan man på sit Tastatur 
spiIle 

230 PRINT" orgel. 0BS->de relevante 
Taster 

240 PRINT" vises på skærmen om lidt 
250 PRINT:PRINT" - 


260 PRINT-.PRINT: PRINT" Med Tasterne 
1-6 vælges Oktav 

270 PRINT:PRINT" Med Tasterne 7-9 v 
ælges regist 

280 PRINT:PRINT" Med Tasterne F1-F5 
vælges klang 

290 FORI-0TO30:NEXT:'Tid som tekste 
n vises 

300 P0KE&HFCAB,&HFF:'(Store bogstav 
er) 


310 KEY1, 

320 KEY2, 

330 KEY3,"+" 

340 KEY4, 

350 KEY5, " * " 

360 KEY9,"LIST" 

370 ' 

380 'STANDARDVÆRDIER FOR TONEGENERA 

TOR 

390 ' 

400 B$-"99":T$-"T099":D$-"8":L$-"L0 
8";F$-"9":S$-"S09":H$-"4000":M$-"M0 
4000":R$-"7":0$-"4":A-4:U$-"10":V$- 
"V10":GOTO1050 
410 CLS 
420 PRINT 

430 PRINT" INDPUT.":'(OVER Fl) 

440 PRINT" 

450 PRINT" TAKT(032-255) 

460 B$-INPUT$(3):PRINTB$ 

470 C$-"T" 

480 T$-C$+B$ 

490 B-VAL(B$):IFB<32ORB>255GOTO440 
500 GOTO1050 
510 ' 

520 CLS 
530 PRINT 

540 PRINT" INDPUT.":'(OVER F2) 

550 PRINT 

560 PRINT" TONELÆNGDE(01-16)"; 

570 D$-INPUT$(2):PRINTD$ 

580 E$-"L" 

590 L$-E$+D$ 

600 D-VAL(D$):IFD<lORD>64GOTO550 
610 GOTO1050 
620 ’ 

630 CLS 
640 PRINT 

650 PRINT" INDPUT.":'(OVER F3) 

660 PRINT 

670 PRINT" BØLGEFORM(07-14)"; 

680 PRINT:PRINT:PRINT" 07-"CHR$(l) 

;CHR$(29+64);CHR$(198) 

690 PRINT:PRINT" 08-"CHR$(1);CHR$( 
22+64);CHR$(1); CHR$ (30+64) ; CHR$ (1) ,- 
CHR$(22+64);CHR$(1);CHR$(30+64);CHR 
$(1);CHR$(22+64);CHR$(1);CHR$(30+64 
);CHR$(1);CHR$(22+64) 

700 PRINT:PRINT" 09-"CHR$(201);CHR 
$(1);CHR$(30+64) 

710 PRINT:PRINT" 10-"CHR$(201);CHR 
$(1),-CHR$ (30+64) ;CHR$(1) ;CHR$( 29+64 
);CHR$(1);CHR$(30+64);CHR$(1);CHR$( 
29+64);CHR$(1);CHR$(30+64);CHR$(1); 
CHR$(29+64);CHR$(1);CHR$(30+64);CHR 
$(1);CHR$(29+64) 
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720 PRINT:PRINT" 11-"CHR$(201);CHR 
$(1);CHR$(30+64);CHR$(251);CHR$(195 
);CHR$(195) 

730 PRINT:PRINT" 12-"CHR$(1);CHR$( 
29+64);CHR$(1);CHR$(22+64);CHR$(1); 
CHR$(29+64);CHR$(1);CHR$(22+64);CHR 
$(1);CHR$(29+64);CHR$(1);CHR$(22+64 
) 

740 PRINT:PRINT" 13-"CHR$(1);CHR$( 
29+64);CHR$(195);CHR$(195);CHR$(195 
);CHR$(195);CHR$(195) 

750 PRINT:PRINT" 14-"CHR$(1);CHR$( 
29+64);CHR$(1);CHR$(30+64);CHR$(1); 
CHR$(29+64);CHR$(1);CHR$(30+64);CHR 
$(1);CHR$(29+64);CHR$(1);CHR$(30+64 
) 

760 LOCATE20,3 

770 F$-INPUT$(2):PRINTF$ 

780 G$-"S" 

790 S$-G$+F$ 

800 F-VAL(F$):IFF<7ORF>14GOTO640 
810 GOTO1050 
820 * 

830 CLS 
840 PRINT 

850 PRINT" INDPUT.":'(OVER F4) 

860 PRINT 

870 PRINT" MODULATION(00001-65535)" 

880 H$-INPUT$(5):PRINTH$ 

890 I$-"M" 

900 M$-I$+H$ 

910 H-VAL(H$):IFH<10RH>655351G0T084 
0 

920 GOT01050 
930 ' 

940 CLS 
950 PRINT 

960 PRINT" INDPUT.(OVER F5) 

970 PRINT 

980 PRINT" VOLUMEN FOR REG.8+9(01-1 
5)"; 

990 U$-INPUT$(2):PRINTU$ 

1000 Y$-"V" 

1010 V$-Y$+U$ 

1020 U-VAL(U$):IFU<lORU>15GOTO950 
1030 ' 

1040 'SKÆRMBILLEDE 
1050 CLS 

1060 PRINTSPC(17)"VI SPILLER OP 
1070 PRINTSPC(12)CHR$(219);CHR$(198 
);CHR$(198);CHR$(198);CHR$(219);CHR 
$(198);CHR$(198);CHR$(219);CHR$(198 
);CHR$(198);CHR$(198);CHR$(219);CHR 
$(198);CHR$(198);CHR$(219);CHR$(198 
);CHR$(198);CHR$(198);CHR$(200) 


1080 PRINTSPC(12)CHR$(219);CHR$(198 
);CHR$(198);CHR$(198);CHR$(219);CHR 
$(198);CHR$(198);CHR$(219);CHR$(198 
);CHR$(198);CHR$(198);CHR$(219); CHR 
$(198);CHR$(198);CHR$(219);CHR$(198 
);CHR$(198);CHR$(198);CHR$(200) 

1090 PRINTSPC(12)CHR$(219);CHR$(198 
);CHR$(198);CHR$(198);CHR$(219);CHR 
$(198);CHR$(198);CHR$(219);CHR$(198 
);CHR$(198);CHR$(198);CHR$(219);CHR 
$(198);CHR$(198);CHR$(219);CHR$(198 
);CHR$(198);CHR$(198);CHR$(200) 

1100 PRINTSPC(12)CHR$(200);CHR$(200 
);CHR$(200);CHR$(200);CHR$(200);CHR 
$(200)j CHR$(200);CHR$(200);CHR$(200 
);CHR$(200);CHR$(200);CHR$(200);CHR 
$(200);CHR$(200);CHR$(200);CHR$(200 
);CHR$(200);CHR$(200);CHR$(200) 

1110 PRINTSPC(12)CHR$(200);CHR$(200 
);CHR$(200);CHR$(200);CHR$(200);CHR 
$(200);CHR$(200);CHR$(200);CHR$(200 
);CHR$(200);CHR$(200);CHR$(200);CHR 
$(200);CHR$(200);CHR$(200);CHR$(200 
);CHR$(200);CHR$(200);CHR$(200) 

1120 PRINTSPC(12)CHR$(200);CHR$(200 
);CHR$(200);CHR$(200);CHR$(200)jCHR 
$(200);CHR$(200);CHR$(200);CHR$(200 
);CHR$(200);CHR$(200);CHR$(200);CHR 
$(200);CHR$(200);CHR$(200);CHR$(200 
);CHR$(200);CHR$(200);CHR$(200) 

1130 PRINTSPC(14)CHR$(1);CHR$(24+64 
);CHR$(1);CHR$(25+64);"ASDFGHJKL;'" 
CHR$(96) 

1140 LOCATE(14):PRINTCHR$(1);CHR$(2 
2+64);CHR$(1);CHR$(22+64) 

1150 PRINTSPC(12)" "CHR$(1);CHR$(2 
2+64);CHR$(1);CHR$(27+64)j" 

"CHR$(96) 

1160 ' 

1170 PRINTSPC(12)CHR$(1);CHR$(24+64 
);CHR$(1);CHR$(23+64);CHR$(1);CHR$( 
21+64); 

1180 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(23+64); 
1190 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(23+64); 
1200 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(23+64); 
1210 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(23+64); 

1220 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(25+64) 
1230 PRINTSPC(12)CHR$(1);CHR$(22+64 
);CHR$(1);CHR$(24+64);CHR$(1);CHR$( 
19+64);" ; "CHR$(1);CHR 

$(22+64) 
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1240 PRINTSPC(12)CHR$(1);CHR$(20+64 
);CHR$(1);CHR$(21+64);CHR$(1);CHR$( 
21+64);CHR$(1);CHR$(23+64); 

1250 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(23+64); 
1260 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(23+64); 
1270 PRINTCHR$(1);CHR$(23+64)j CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(23+64); 
1280 PRINT"L"CHR$(1);CHR$(23+64)jCH 
R$(l);CHR$(23+64);CHR$(1);CHR$(23+6 
4);CHR$(1);CHR$(23+64);CHR$(1);CHR$ 
(19+64) 

1290 PRINTSPC(12)CHR$(1);CHR$(22+64 
);CHR$(1);CHR$(22+64);CHR$(1);CHR$( 
21+64);CHR$(1);CHR$(25+64);" 

K ";CHR$(1);CHR$(22+64) 

1300 PRINTSPC(12)CHR$(1);CHR$(20+64 
);CHR$(1);CHR$(21+64);CHR$(1);CHR$( 
21+64);CHR$(1);CHR$(21+64);CHR$(1); 
CHR$(23+64)j 

1310 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(23+64); 
1320 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(23+64); 
1330 PRINT"J"CHR$(1)j CHR$(23+64);CH 
R$(l);CHR$(23+64);CHR$(1);CHR$(23+6 
4) ; 

1340 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1)jCHR$(23+64); 
CHR$(1);CHR$(19+64) 

1350 PRINTSPC(12)CHR$(1);CHR$(22+64 
);CHR$(1);CHR$(22+64);CHR$(1);CHR$( 
22+64);CHR$(1);CHR$(22+64);" H 

"CHR$(1);CHR$(22+64) 

1360 PRINTSPC(12)CHR$(1);CHR$(20+64 
);CHR$(1);CHR$(21+64);CHR$(1);CHR$( 
21+64);CHR$(1);CHR$(21+64);CHR$(1); 
CHR$(23+64 ) } 

1370 PRINTCHRI(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(23+64); 
CHR$(1);CHR$(23+64); 

1380 PRINT"G"CHR$(1);CHR$(23+64);CH 
R$(l);CHR$(23+64);CHR$(1);CHR$(23+6 
4) s CHR$(1);CHR$(23+64); 

1390 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(23+64); 
CHR$(1);CHR$(23+64);CHR$(1);CHR$(19 
+64) 

1400 PRINTSPC(12)CHR$(1);CHR$(22+64 
);CHR$(1);CHR$(26+64);CHR$(1);CHR$( 
21+64);CHR$(1);CHR$(27+64);" F 

"CHR$(1);CHR$(22+64) 

1410 PRINTSPC(12)CHR$(1);CHR$(26+64 
);CHR$(1);CHR$(23+64);CHR$(1);CHR$( 
21+64);CHR$(1);CHR$(23+64); 


1420 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(23+64); 
1430 PRINT"D"CHR$(1);CHR$(23+64);CH 
R$(1);CHR$(23+64);CHR$(1);CHR$(23+6 
4); 

1440 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(23+64); 
1450 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(23+64);CHR$(1);CHR$(23+64); 
1460 PRINTCHR$(1);CHR$(23+64);CHR$( 
1);CHR$(27+64) 

1470 PRINTSPC(12)" "CHR$(212)jCHR$( 
1);CHR$(22+64);" S 
1480 PRINTSPC(12)" "CHR$(1);CHR$(26 
+64);CHR$(1);CHR$(27+64);" "CHR$(1) 
;CHR$(23+64);"A"CHR$(1);CHR$(23+64) 

1490 ' 

1500 'BILLEDTEXT 
1510 ' 

1520 LOCATEO,2 
1530 PRINT" TAKT:"B$ 

1540 PRINT" " 

1550 PRINT" TONLÆNGDE:"D$ 

1560 PRINT" " 

1570 PRINT" BØLGE-" 

1580 PRINT" FORM:"F$ 

1590 PRINT" " 

1600 PRINT" MODULA- 
1610 PRINT" TION:"H$ 

1620 PRINT" 

1630 PRINT" VOLUMEN" 

1640 PRINT" FOR REG:"U$ 

1650 PRINT" 

1660 PRINT" OKTAV:"- 
1670 PRINT" 

1680 PRINT" REGISTER:" 

1690 PRINT" 

1700 PRINT" F1-F5- 
1710 PRINT" INPUT." 

1720 PRINT" 

1730 PRINT" O-END" 

1740 ' 

1750 FORI-ITOIOO 
1760 LOCATE12,22 
1770 PRINT" "; 

1780 LOCATE12,22 
1790 PRINT"SPILLE"; 

1800 NEXTI 
1810 ’ 

1820 'TONEGENERATOR 
1830 ' 

1840 M1$-S$+M$+T$+L$+"08C" 

1850 M2$-V$+M$+T$+L$+"07C" 

1860 M3$-V$+M$+T$+L$+"06C" 
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1870 PLAY"XM1$;","XM2$;","XM3$;" 
1880 ' 

1890 IFR-7GOT01960 
1900 IFR-8GOT02050 
1910 IFR-9GOT02140 
1920 1 

1930 'VARIABLER FOR OKTAVER U/REGIS 
TER 

1940 'REGISTER 7 
1950 ' 

1960 IFA-lTHEN0$-"02":0P$-"03":GOTO 
2250 

1970 IFA-2THEN0$-"03":0P$-"04":GOTO 
2250 

1980 IFA-3THENO$-"04":0P$-"05":G0T0 
2250 

1990 IFA-4THEN0$""05":OP$-"06":GOTO 
2250 

2000 IFA-5THEN0$-"06":0P$-"07":G0T0 
2250 

2010 IFA-6THEN0$-"07":0P$-"08":GOTO 
2250 
2020 ' 

2030 'REGISTER 8 
2040 ’ 

2050 IFA-1THEN0$-"02":P0$-"01":0P$- 
"03":GOT02640 

2060 IFA-2THEN0$-"03":P0$-"02":OP$- 
"04":GOTO2640 

2070 IFA-3THENO$-"04":PO$-"03":OP$- 
"05":GOT02640 

2080 IFA-4THEN0$-"05":P0$-"04":OP$- 
"06":GOTO2640 

2090 IFA-5THEN0$-"06":PO$-"05":0P$- 
"07":GOT02640 

2100 IFA-6THEN0$-"07":P0$-"06":0P$- 
"08":GOT02640 
2110 ' 

2120 'REGISTER 9 
2130 ' 

2140 IFA-lTHENO$-"02":PO$-"01":OP$- 

"03":P$-"04":GOTO3030 

2150 IFA-2THEN0$-"03":PO$-"02":OP$- 


"04" 

2160 

"05" 

2170 

"06" 

2180 

"07" 

2190 

"08" 

2200 

2210 

2220 


P$-"O5":GOTO3030 
IFA-3THENO$-"04":PO$-"03" 
P$-"O6":GOTO3030 
IFA-4THEN0$-"05":P0$-"04" 
P$-"07":GOT03030 
IFA-5THEN0$-"06":PO$-"05" 
P$-"08":GOT03030 
IFA-6THEN0$-"07":PO$-"06" 
P$-"O8":GOTO3030 


:OP$- 

:OP$- 

:0P$- 

:OP$- 


2230 'REGISTER 7,OKTAV 1-6 
2240 ' 

2250 LOCATE8,15 
2260 PRINTA 
2270 R$-"7" 

2280 LOCATE10,17 
2290 PRINTR$ 

2300 A$-INKEY$ 

2310 B-VAL(A$) 

2320 IFB->1ANDB-< 6THENA-B:GOTO1890 

2330 IFB“80RB“9THENR"B:GOTO1890 

2340 IFA$-"-"THEN410 

2350 IFA$-"-"THEN520 

2360 IFA$-"+"THEN630 

2370 IFA$-"*"THEN830 

2380 IFA$“"“"THEN940 

2390 IFA$*"0"THEN3400 

2400 IFA$-"A"THENPLAYO$+"C" 

2410 IFA$-"S"THENPLAYO$+"D" 

2420 IFA$-"D"THENPLAYO$+"E" 

2430 IFA$-"F"THENPLAYO$+"F" 

2440 IFA$-"G"THENPLAYO$+"G" 

2450 IFA$-"H"THENPLAYO$+"A" 

2460 IFA$-"J"THENPLAYO$+"B" 

2470 IFA$-"K"THENPLAYOP$+"C" 

2480 IFA$-"L"THENPLAYOP$+"D" 

2490 IFA$-";"THENPLAYOP$+"E" 

2500 IFA$-"' ''THENPLAYOP$+"F" 

2510 IFA$""'"THENPLAYOP$+"G" 

2520 IFA$-"W"THENPLAYO$+"C+" 

2530 IFA$-"E"THENPLAYO$+"D+" 

2540 IFA$-"T"THENPLAYO$+"F+" 

2550 IFA$-"Y"THENPLAYO$+"G+" 

2560 IFA$-"U"THENPLAYO$+"A+" 

2570 IFA$-"0"THENPLAYOP$+"C+" 

2580 IFA$-"P"THENPLAYOP$+"D+" 

2590 IFA$-"A"THENPLAYOP$+"F+" 

2600 GOT02300 
2610 ' 

2620 'REGISTER 8,OKTAV 1-6 
2630 ' 

2640 L0CATE8,15 
2650 PRINTA 
2660 R$-"8" 

2670 LOCATEIO,17 
2680 PRINTR$ 

2690 A$-INKEY$ 

2700 B-VAL(A$) 

2710 IFB->1ANDB-<6THENA-B:GOT02050 
2720 IFB-7ORB-9THENR-BsGOTO1890 
2730 IFA$-"-"THEN410 
2740 IFA$-"-"THEN520 
2750 IFA$-"+"THEN630 
2760 IFA$-"*"THEN830 
2770 IFA$“" A "THEN940 
2780 IFA$-"0"THEN3400 
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"THENPLAY"XOP$; 


2790 IFA$“"A"THENPLAY"XO$;","XP0$;" 
:PLAY"C" "C" 

2800 IFA$-"S"THENPLAY"XO$;","XP0$;" 
:PLAY"D","D" 

2810 IFA$“"D"THENPLAY"XO$;","XP0$;" 
:PLAY"E”,"E" 

2820 IFA$" , "F"THENPLAY"XO$ j ","XP0$;" 
:PLAY"F","F". 

2830 IFA$""G"THENPLAY"XO$;”,"XP0$;" 

:PLAY"G","G" 

2840 IFA$-"H"THENPLAY"XO$;","XP0$;" 
:PLAY"A" "A" 

2850 IFA$-"J"THENPLAY"XO$;","XP0$;" 
:PLAY"B","B" 

2860 IFA$-"K"THENPLAY"XOP$;","X0$;" 
:PLAY"C","C" 

2870 IFA$-"L"THENPLAY"XOP$;","X0$;" 
:PLAY"D","D" 

2880 IFA$-";"THENPLAY"XOP$;","X0$;" 
:PLAY"E","E" 

2890 IFA$-"'"THENPLAY"XOP$;","X0$;" 
:PLAY"F","F" 

2900 IFA$“"“"THENPLAY"XOP$;","X0$;" 
:PLAY"G","G" 

2910 IFA$-"W"THENPLAY"XO$;","XP0$;" 
:PLAY"C+","C+" 

2920 IFA$“"E"THENPLAY"XO$;","XP0$;" 
:PLAY"D+","D+" 

2930 IFA$-"T"THENPLAY"XO$;","XP0$;" 
:PLAY"F+","F+" 

2940 IFA$-"Y"THENPLAY"XO$;","XP0$;" 
:PLAY"G+","G+" 

2950 IFA$-"U"THENPLAY"XO$;»,"XP0$;" 
:PLAY M A+ H M A+ ,< 

2960 IFA$-"0"THENPLAY"X0P$; ", "X0$; " 
:PLAY"C+","C+" 

2970 IFA$“"P"THENPLAY"XOP$;","X0$;" 
:PLAY"D+","D+" 

2980 IFA$-"A"THENPLAY"XOP$;","X0$;" 
:PLAY"F+","F+" 

2990 GOTO2690 
3000 ' 

3010 'REGISTER 9,OKTAV 1-6 
3020 ' 

3030 LOCATE8,15 
3040 PRINTA 
3050 R$-"9" 

3060 LOCATE10,17 
3070 PRINTR$ 

3080 A$-INKEY$ 

3090 B-VAL(A$) 

3100 IFB->1ANDB"< 6THENA-B:GOTO2140 
3110 IFB-7ORB-8THENR-B:GOTO1890 
3120 IFA$-"-"THEN410 
3130 IFA$-"-"THEN520 
3140 IFA$-"+"THEN630 
3150 IFA$«"*"THEN830 


"XPO$;" 

"XPO$;" 

3160 IFA$ _ " A "THEN940 

3170 IFA$""0"THEN3400 

3180 IFA$“"A"THENPLAY"XO$;' 

,"XPO $i 

"XPO$;" 

,"XOP$;":PLAY"C","C","C" 
3190 IFA$“"S"THENPLAY"XO$;' 

,"XPO$; 

"XPO$; " 

,"XOP$;":PLAY"D","D","D" 
3200 IFA$-"D"THENPLAY"XO$;' 

,"XPO$; 

"XPO$;" 

,"XOP$ ; ":PLAY"E","E","E" 
3210 IFA$-"F"THENPLAY"XO$;' 

,"XPO$j 

"XPO$;" 

,"XOP$;":PLAY"F","F","F" 
3220 IFA$“"G"THENPLAY"XO$;' 

,"XPO$; 

"XPO$;" 

,"XOP$;":PLAY"G","G","G" 
3230 IFA$-"H"THENPLAY"XO$;' 

,"XPO$; 

',"XO$;" 

,"XOP$;":PLAY"A","A","A" 
3240 IFA$-"J"THENPLAY"XO$;' 

,"XPO$; 


3250 IFA$“"K"THENPLAY"XOP$ 

,"XP$;":PLAY"C","C","C" 

3260 IFA$-"L"THENPLAY"XOP$ 

,"XP$;":PLAY"D","D","D" 

3270 IFA$-";''THENPLAY"XOP$ 

,"XP$;":PLAY"E","E","E" 

3280 IFA$-" 1 ' 1 THENPLAY 11 XOP $ 

,"XP$;":PLAY"F","F","F" 

3290 IF A $ ■ " "*" THENPL AY " XOP $ 

,"XP$;":PLAY"G","G","G" 

3300 IFA$-"W"THENPLAY"XO$; 

,"XOP$;":PLAY"C+","C+","C+ 
3310 IFA$-"E"THENPLAY"XO$; 

,"XOP$;":PLAY"D+","D+","D+ 
3320 IFA$-"T"THENPLAY"XO$; 

,"XOP$;":PLAY"F+","F+","F+ 
3330 IFA$-"Y"THENPLAY"XO$; 

,"X0P$;":PLAY"G+","G+","G+ 
3340 IFA$-"U"THENPLAY"XO$; 

,"XOP$;":PLAY"A+","A+","A+ 
3350 IFA$-"0"THENPLAY"XOP$ 

,"XP$;":PLAY"C+","C+","C+" 
3360 IFA$-"P"THENPLAY"XOP$ 

,"XP$;":PLAY"D+","D+","D+" 
3370 IFA$“"A"THENPLAY"XOP$ 

,"XP$;":PLAY"F+","F+","F+" 
3380 GOTO3080 
3390 ' 

3400 'PROGRAM SLUT 
3400 'PROGRAM SLUT 
3410 ' 

3420 SCREENO:WIDTH40 

3430 PRINT"PROGRAMMET HAR"( 

E(0))/1000"K" 

3440 'FUNKTIONSTASTER SOM C 
3450 DEFUSR-&H3E:X%-USR(1): 


OBS linie 290 skal være 
FORI-0TQ3000:NEXT 


OPSTART 
:KEYON 
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F TASTER 

Hej ve ri ner- i MSX-k lubben. 

Her er lidt trylleri med F-tasterne 
På en SV-328 !?. 

Man. klager tit over der kun er 15 
karektere i en F-tast. 

Det er dog mu. 1 i yt med ovenstående 
program, man 9 år af bagvejen 09 poker 
sine meddelelser ind 09 HUSK altid den 
sidste vårdi sk a1 våre ®.De 500 der 
står tilsidst er kun til at stoppe 
pok ■' n i ngen. 

U L E M P EN! ! 

Det er klart at man får ikke noget 
gratis heller ikke af sin SV 328, når 
man poker så meget ind i en F-tast 
bruger man to eller flere F~taster, 
dette program bruger således F-l & F-2 
så man skal ikke fråse for meget. 

Når man så har lavet en hel del om på 
sine F-taster aner man ikke hvordan 
man skal lave F~8 til cload" igen men 
her er en nem lille rutine der kalder 
i ROMmen : DEFUSR-&H59: fl*=USR< 0 > og 
straks er F- tasterne som da der bliv 
t å n d t f o r m a s k i n e n. 

Venlig SVI.Hilsen 

Lars E. Olsen. 

PS. Hvis der er nogen der vil salge en 
bog om MC~kode programmering på 
SV-328, så er jeg intereseret. 


PROGRRMLISTE 

1 REM F-TfiSTE PROGRAM 

2 REM af Lars B. Olsen 

3 R-64030 :■* start addresse for F~1 

4 READ Q 

5 IF Q= 5øø THEN GOTO lø 

6 POKE A,Q 

7 A-A+l 

8 GOTO 4 

S' DATA 32,32, 32,77,32,32,83, 32 

,32,88,32,32,66,114,117, 103, løl 
114,32,107,108,117,98,98,101,110 
,32,7,7,7,7,ø,5øø 

10 SCREEN 0,0:LOCATE lø,lø:PRINT 
"FULDENDT F-TAST KODNING" 


For 

en god 

ordens skyld 

list- 

s- over 

F~testerne her 

F-l 

64030 

- 64045 

F-2 

64046 

- 64061 

F-3 

64062 

- 64077 

F-4 

64078 

- 64093 

F-5 

64094 

- 64109 

F-6 

64110 

- 64125 

F-7 

64126 

- 64141 

F-8 

64142 

- 64157 

F-9 

64158 

- 64173 

F-lø 

64174 

- 64189 



BREV FRA SVERIG 

Jeg har I Ige modbageb ab brav fra 
Svar ige, dab ar fra ab af vore mad- 
lemmer Pebber Tlllikalnen og han 
har på alm kladdepapir sendb mig *t 
muslksbykker som han selv har Iaveb 
Jeg I I er darfor mBd ab brInga dam 
videre bil Jer alle, Pebber skriver 
ab jBg garna må forbedre dem man 
dab vil Jag overlade bil Jer kars 
mBdI ammer, så hvis nogen synas da 
kan forbedre Padder’s musik så bare 
gå I gang og sand blod resuIbabeb 
bil Johnny B Musik Llndavangab E37 
BBoo Silkeborg. 

Nu sBndbe Pebber Jo slb måber la le 
som skrIfbI I g måber IaIe så Jeg se Iv 
måbbe basbe deb Ind hvis han havde 
bankb sig om havde han sendb deb på 
eb bånd som Dada og så havde han Jo 
naburI IgvI s som så mange andre fåeb 
båndeb rebur med en opmunbrlng. 

I form af nogle gode prg. Oeb må 
han Jo huske bl I nasbe gang. 

Hermed Pebbers H muslksbykker. 
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10 'mus I c Monster* presents 
50 'LA BAMBA 
30 PLAY’ , T150M l +5051304'" 

*0 PLAY"FBFBFBFFECR3RBFBFBFBFFEBCCB 
CCDB03B0tDBFBEDBEBC5" 

50 PLAY"R3R‘tFBFBFBFFBEBCCBCC0B03B0 l t 
0BFBED8ECR3R‘tRBFBFBFFBEBCCBCCD030'tD 
FEEC" 

BO PLAY"03ABB0 l tFBFBFBFFECR3RBFBFBFB 
FFEBCCBCCD03BO‘tDFEEC03AER‘tR30 l tC303A 
3BBB5R3” 

70 PLAY"U110‘tE3CD803B5R3" 

BO PLAY"V50tE3CDB03B5R3 
90 PLAY"V10tE3CDB03B5R3 

10 ’5TREETS 0F LONDON 
50 'by MU5IC M0N5TER5 
30 PLPY"T150M4 , 50S130 l t" 

'tO PLAY"BBBB05D030‘tBBABG3G3BB5" 

50 PLAY"EEEGGG3EBGBA3A3B1" 

BO PLAY"BBB05DDDD30‘tEFGBBB05Ca‘tBB" 
70 PLAY"R‘tEEBG5EG3GBGBD3EBFBGlE 1 t" 

BO PLAY"05C3CCaHBBE05D03C50 l tBlR‘tAAA 
BA5" 

30 PLAY ,, EBEBGBF501QlBB8B‘t05D5DDBa‘tB 
BA" 

100 PLAY"EFBG3ABB505C0‘tBFR‘tEEEEG3G" 
110 PLAY"0DBE5FG3BB05CBDBDB030‘tBAG3 
FBG5AG3” 


10 'BLOUINE IN THE UIND 

50 ’by BOB DYLAN M5X VERSION BY CO 

MPETTER 1B-B-BB 

30 PLAY M T130M l t5051303 

‘tO PLAY M BBGGABAAGBEDC3EG3GA5EF" 

50 PLAY"B1G3EFB3GBA3AAG5EDCBEB5E" 

BO PLAY"F3FE01D3EFE3GEA3AAEBG5ED" 

70 PLAY"C5EB3EGA3EFG1E5EF3FED5D" 

BO PLAY"EBE5EDCSEF3FEDB05C05B03C1C1 

90 '5LUT 


10 'EL CONDOR PA5A 

50 ’ID RATHER BE AN MSX THAN AN COM 

MODORE 

30 PLAY”T150S13M‘t5005 

HO PLAY"0‘tA05DCDEFEFBAlA30BDC05AlAR 

‘t0BDC05AlAABFDlD3F3DlDR'tR‘tA050CDEFE 

FGA1A30BDC0BDC05A1ARB0BDBCBDC05A1AA 

GFD1D3F303DR3A" | 

50 PLAY"OBDSCD5CBD5CBD1D3FDC1CCDC05 , 

A1A5A" 

BO PLAY”0BDSCD5CBD5CB01D0FDC1CC0C05i 
AIAABFDIDBRt" | 


SVI 328 TIPS 

Endnu en spalte med SVI-328 tips 
•fra Magnus Pi hl . 

SVI Logo : De+usr=8cH4782:X=Usr (O) 

- Obs! GIøm ej Screen 0 

efteråt.IEj Varmstart) 

-o-o-o-o-o- d -o- 

Error Ord: For X=8cH05D7 To 8<H084b:? 
- Chr*(Peek(X))fSNext X 

-D-O-O-D-O-O-O- 

Caps Lock: MHFE38 ; 32=Store 
- 0=Små 

Out fkH8C,8tHFF ; Tander LED 
Out 8cH8C, 8cHDF ; Slæcker LED 

Detusr=&H3FEB:X=Usr (0) 

= Inversera Caps Lock 

-D-O-O-D-O-O-D- 

Kasettstation: 


INP(kH93) 127 = Motor ær Av 

63 = Motor ær På 
63 = Svag Ton 

191 = Stærk Ton 

Out fcH97,8 = Motor On 

Out 8cH97,9 = Motor Off 

-d -o-o-o-o-o-o- 

Joystick: fkHFAOS ; 8<H20= Strig(l) 
feH10= Strig(2) 

-o-o-o-o-o-o-o- 

Skrivare: 


IMP (&.-H12) AMD (01) 1=Ej påslager. 

2=Påslagen 

-o-o- d -o-o-o-o- 

Computer Software Service 

Magnus Pihi 
Triangel vægen 19 
S-175 46 Jærfælla 
Sverige 

Telefon:0758-35521 


















•*-**-* MSX BIB 


MSX BIB 

Allerførst vil jeg undskylde at 
jeg komplet glemte at gøre opmærk¬ 
som på min eksistens i sidste num¬ 
mer, men som det er sket før sov 
jeg over mig efter sommerferien. 

Hvad angår BIB kan jeg melde om 
to nyheder, begge kreeret af Jørgen 
Vitus Nielsen fra Rødovre som ef¬ 
terhånden kan ligge navn til en god 
portion af BIB's programmer (der er 
noget alle i andre passive hoveder 
kan tage ved lære af). Det første 
er det ældgamle kinesiske pindespil 
"Nim”, hvor det gælder om ikke at 
tage den sidste pind. Man kan spil¬ 
le to personer eller mod computer¬ 
en. Det andet er et eventyrspil 
kaldet "Milas”. Handlingen udspil¬ 
ler sig på et slot hvor man skal 
finde grev Milas’s skat. Spillet er 
i båndversion med ren tekst, men i 
diskversion er en havelabyrint med 
held blevet omdannet til 3D-grafik. 
Programmet er rimel i.g underholdende 
og kan varmt anbefales. 

Derudover har jeg som omtalt 
andet sted i bladet en kasse med 
original versioner af spillet 
”Knight Tyme” på bånd liggende som 
igennem BIB sælges for kr. 35,- 
inkl. forsendelse, hvis det købes 
alene og kr. 25,- hvis det købes 
sammen med andre programmer i BIB. 

Ønsker du at komme i besiddelse 
af nogle af de ovenfor eller dem i 
nedenstående liste nævnte program¬ 
mer fra MSX-BIB er fremgangsmåden 
som altid: 

Du sætter dig ned og finder ud 
af hvilke programmer du vil købe. 
Derefter slipper du joystikket for 
en stund, går hen på posthuset, 
fatter et giroindbetalingskort, og 
skriver programnavnene på bagsiden. 

Pri ser: 

15 min. bånd - 25 dkr. stk. 

5.25” disk - 25 dkr. stk. 

3.5” disk - 35 dkr. stk. 

programmer - 10 dkr. stk. 

Forsendelses omkostninger er in¬ 
kluderet i disse priser. 

Et bånd kan rumme 8 programmer. 
En disk kan rumme hele biblioteket. 

Eks: 8 programmer på 3.5” disk 

koster 8 * 10 + 35 = 115 dkr. 


Programmerne bestilles hos: 

Kim Andersen 
Fundervej 32 
2610 Rødovre 
gironr. 7 50 87 00 

Jeres egne programmer sendes til 
samme adresse. (der venter stadig 
en belønning i form af bånd eller 
disketter efter eget ønske). 

Kifn 


Øvrigt indhold i MSX-BIB: 

- ”Tank”, 2-mandsspil hvor man skal 
kanonføde hinanden. 

- "Wall”, 2-mandsspil lignende 
bordtennis. 

- ”Seafight”, Skyd jetjagere, der 
angriber ens skib. 

- "Fødag”, sig tillykke til din mor 
med et lille grafik/lyd show. 

- "Kalender", Udregner kalender for 
ønsket år eller ugedag for dato. 

- "Colortrim”, definer nye farver 
mellem 512 mulige. Kun til SVI-738. 

- "Bronski”, spiller Bronski Beat's 
'Smalltown boy'. 

- "Musik”, en lang række kendte 
melodier, bl.a. ’Cavatina'. 

- "R2D2”, tegner det lille kære 
metal væsen. 

- "Lamborghini", har du ikke råd 
til at købe en, så se en. Flot! 

- "Lineshow”, meget flot demonstra¬ 
tionsprogram med bevægende linier. 

- "Kegle”, vælt den enlige bevægen¬ 
de kegle med din bowlingkugle. 

- "Figflyt”, kan flytte og dreje 
figurer du tegner ved at angive 
hjørnekoordinater. Regner nye ud. 

- "Sprite", tegn din sprite og du 
får hvad der skal stå i data¬ 
linierne. Meget enkelt. 

- "Regression”, smart program der 
ud fra indtastede data (koordina¬ 
ter) tegner en tilpasset kurve. 

- "Tegne”, lille tegneprogram med 
de gængse kommandoer. Flot grafik. 

- "Snake Valley”, æd modstanderens 
hale inden han æder din. For 1 
eller 2 spillere. Rigtig sjovt! 

- "Biorytmer”, afgør hvordan din 
fysiske, psykiske & intellektuelle 
tiIstand er d.d. 
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- "Chopper”, helikopiorspi1 med 12 
baner, incl. designerprogram til at 
lave mange flere. 

- "Ormrun” , Charlottenlund Travbane 
med orme, flot grafik & lyd. 

- "Demo”, oplev hvilke grafiske 
muligheder din MSX indeholder. 

- "Amorti", regner rente, afdrag og 
restgæld på din afbetaling ud. 

- "Tips", indtast dine tips (også 
sys.) og prog. viser antal rigtige. 

- "The Maze”, lav en labyrint og få 
en anden til at slippe igennem. 

- "Life”, tegn et mønster af cel¬ 
ler, og du ser dem udvikle sig. 

- "Sound Maker”, lav den rigtige 
lyd til dit sdpil på denne flotte 
mikserpult. 

- "Halv Tolv”, lige som i Monte 
Carlo, på med pokerfjæset. 

- "Danmark”, lær de danske byers 
beliggenhed, flot grafik. 

- "Oil”, bliv olie-sheik på no 
time, sjovt to-mands-spi1. 

- "Puzzle", sjovt puslespil på 16 
brikker med bevæglige billeder. 

- "Skyd Nu”, skeetskydning som du 
kender det fra 01, hurtig grafik. 

- "Pengo”, det iskolde gys, klas¬ 
sikeren fra spillehallerne. 

- "Søjle”, behandler tal og stiller 
dem op som kurver el. søjler. 

- "Eliza”, Psykologen hjælper dig 
med kærestesorgerne, på engelsk. 

- "Graf”, tegner en graf for den 
indtastede funktion, brugervenligt. 

- "Kartotek”, hold styr på dine 
cassette bånd og programmer. 

- "Moon Mission”, superlækkert gra¬ 
fik lander program, 5 baner. 

- "Frogrun”, få frøen sikkert over 
vejen og floden. 

- "Dump”, screendump prog. til din 
Epsonkompatible printer. 4 forstør¬ 
relser. 4 gråtoner. 

- "Dbase”, hurtig dbase hvor du kan 
sætte alt i system, indbygget ud¬ 
printningsfacilitet. 

- "Screen Store”, kan gemme to 
skærmbilleder og lynhurtig få dem' 
frem igen. Kun til 64 k maskiner. 

- "Ram Disc", arbejd med to pro¬ 
grammer på samme tid. Kun til 64 k 
maskiner. 


SMÅ TING 
FRA JOHNNY 



1 'PROGRAMNAVN. : MINI DISASSEMBLER ^ 

2 'MASKIN TYPE. : MSX 

3 'FORMAL .: KIGGE I RAM 

4 ‘PROGRAMMØR ..; JOHNNY B MUSIK 

5 ‘SVÆRHEDSGRAD; BEGYNDERE 

6 ' 


10 INPUTN:N%-VAL (" &H‘ +HEX$ (N) ) 

20 FORI%-OT010: '10 kan forhøjes op 
ned giver antal linier 
30 PRINTUSING" #####-" +HEX$ (N%) ; N%-( 
m<0) *65536!; 

40 FORJ96-0TO7; '7 kan forhøjes op ne 
d giver antal tal i linie 
45 H$-HEX$ (PEEK(m) ) ; 'kan ændres ti 
1 CHR$ istedet 

50 PRINTTAB (15+3 *J%-LEN (H$) ) ;H$; 

60 N%-N%+1: NEXT; PRINT: NEXT; N-CSNG (N 
%) :GOT010 


10 'PROGRAMNAVN: 
20 'MASKIN TYPE: 

30 'FORMAL .; 

40 'PROGRAMMØR. : 

50 '(C) ..* 

60 ' 

70 'OBS ..• 

71 ' 


NY BASIC BUND 
MSX 

FLYTTE BASIC BUND 
JOHNNY B MUSIK 
SYNTAXEN 1968 

HEJ H. G. 


72 'BASIC BUND ADR. MA VÆRE MELLEM 

73 '&H8000 OG &HE000 
80 ' 

90 AK-&HC000: '<-NY BASIC BUND 
100 POKE A%, 0 
110 

120 POKE &HF676, PEEK ( VARPTR (A%) ) 
130 POKE &HF677, PEEK( VARPTR (A%)+1) 
140 PRINT'NY BASIC BUND - &H'A% 
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Farver i CP/M, MSX DOS og MS DOS 
For alle computere med disk. 


Er du blevet træt af farverne på 
din skærm når du arbejder i DOS? Så 
læs videre, her kan du lære hvordan 
du kan ændre dem. 

På system disketterne til X'press 
(738) har Spectravideo lagt et 
COLOR program, så det er muligt at 
skifte skærmens farve i både MSX 
DOS og CP/M. Når programmet køres 
skal man taste en bogstavs kombina¬ 
tion for de farver man ønsker. 
Dette kan blive temmelig irri¬ 
terende når det altid er de samme 
farver man vil skifte til. Jeg har 
derfor for flere måneder siden 
begyndt at skrive et snedigt farve 
program til MSX DOS og CP/M, hvor 
det både skulle være muligt at få 
skiftet farverne automatisk (udfra 
tal/bogstavs koder på kommando 
linjen) og manuelt ved indtastning. 
Jeg gik lystigt i gang med at 
skrive maskinkode programmet, uden 
præcist at have defineret program¬ 
mets muligheder og hvordan farve 
koderne skulle angives af brugeren. 
Programmet er derfor endt som en 
rodet 5K tekstfil, som må skrives 
helt om... 

Hvad kan man så lære af det? Brug 
tid til papir arbejde, så program¬ 
mets muligheder og hoved-opbygning 
bliver ordenligt klarlagt. 

I stedet har jeg nu fået lavet et 
lille fikst farve program hvor 
farverne altid vil blive ændret til 
nogle fast valgte farver. Hvilke 
farver det skal være kan du 
bestemme ved oprettelsen af 
programmet. 

Der er tre udgaver af farve pro¬ 
grammet en til SVI328, MSX/MSX2 og 
PC. Bemærk dog at farve programmet 
udnyttelse er temmelig begrænset på 
SVI328, fordi det kun kan benyttes 
på 40 tegns skærmen, 80 tegns 


kortet er jo monochromt 
(sort/hvidt), ligeledes for SVI728 
hvis 80 tegns kort også er 
monochromt. 

Nedenfor er vist tre Basic 
programmer, et til hver maskintype, 
som laver en andet program, som kan 
bruges i henholdvls CP/M, MSX DOS 
og MS DOS. Basic programmet er ikke 
det program du kører i DOSen. 

I MSX versionen kan du angive fire 
farver (farvenr.: 0 - 15), det er 
nemlig muligt at angive normal 
tekst farve (for- og baggrund) samt 
farvenr. for inverteret tekst. 
Invers farve kan kun udnyttes på 
MSX2 videos 80 tegn skærm og kun 
hvis inverteret tekst er blevet 
initialiseret. WIDTH80 som følger 
med X'press 738 gør feks. dette. 
Men under alle omstændigheder er 
muligt at ændre normal tekst farve. 
Er der en af farverne du ikke 
ønsker ændret tryk da blot Enter 
uden at angive nogen farve. 

Efter farvevalg kan du vælge om 
farvene skal skrives direkte til 
video chippen eller der skal bruges 
rom-rutine. Normalt bør du vælge 0 
her, det er den ordentlige måde. 
Fungerer dette ikke, vælg om igen 
og brug så 1 muligheden. 1 skal 
ihvertilfælde benyttes hvis 
programmet kopieres over til brug 
under CP/M. 

Når Basic programmet melder Ok, er 
filen COLOR.COM oprettet. Gå nu ind 
i MSX DOS ved at skrive _SYSTEM 
eller resette computeren og prøv at 
skrive COLOR når MSX DOS melder 
klar. 

SVI328 versionen er problematisk. 
Du kan ikke blot bruge den alm. 
Basic til at køre programmet og få 
oprettet dit C0L0R.C0M program, jeg 
kender nemlig ingen mulighed for 
kopiering mellem Basic- og CP/M- 
disketter på SVI328. Problemet er 
det samme som omtalt i artiklen om 
funktions taster i blad nr. 3 '88. 
Du er derfor nødt til at have en 
CP/M Basic, som startes fra CP/M, 
feks. Microsoft Basic 2. 


■IHMMfr FARVER I CP/M, MS-M8X DOS -*-**-*- 


Når Basic programmet køres angiver 
du blot for- og baggrundsfarve som 
vil blive lagt fast ind i COLOR.COM 
programmet. 

I stedet for en CP/M Basic er det 
faktisk også muligt at benytte DDT 
debugeren, som følger med CP/M 
system disketten. Her skal du så 
kun Indtaste selve maskinkode 
dataerne, og udskifte de to gange 
FF, som står som byte 2 og 3, med 
for- og baggrundsfarve. 

PC versionen laver ikke en COM fil, 
men derimod en tekstfil som sammen 
med ANSI.SYS kan skifte farverne. 
■Systemfilen ANSI.SYS blev forklaret 
i blad nr. 3 fra i år, så start med 
at læse der hvis du ikke ved hvad 
ANSI,SYS kan bruges til. 

En af ANSI.SYS muligheder er som 
sagt at skifte skærm farverne, og 
dette gøres ved i en tekstfil at 
skrive kode rækkefølgen ESC (ascii 
27), venstre-kantet parantes <ascii 
91), et eller flere talværdier med 
semikolon <; ) imellem samt til 
sidst et lille m. Talværdierne 
skrives ciffer for ciffer, altså 
værdien 37 skrives som et 3-tal og 
et 7-tal. 

De forskellige talværdiers betyd¬ 
ning kan du se i følgende tabeli 
0 Alle attributter fjernes; nul¬ 
stil til normal farve - start 
med dette 

1 Bold; lysere - kun tekstfarve 

4 Understreget tekst; kun for 
monochromt kort, altså ikke CGA 

5 Blink 

7 Ivers farvet tekst 

8 Gennemsigtig tekst; ikke 
særligt brugbart 


For- 

bag- 

grundsfarver: 

30 

40 

Sort 

31 

41 

Rød 

32 

42 

Grøn 

33 

43 

Gul 

34 

44 

Blå 

35 

45 

Magenta (lilla) 

36 

46 

Cyan <lys blå) 

37 

47 

hvid 


For at gøre det let at lave tekst¬ 
filen som skal defienere farverne, 
har jeg lavet et Basic program som 
opretter en tekstfil med navnet 
COLOR.DEF. 

I Basic programmets DATA-linjer kan 
du let angive talværdierne for de 
farver og special effekter du 
ønsker. | 

I programmet er også benyttet et 
par ekstra af ANSI.SYS muligheder, 
nemlig til slut at slette skærmen, 
så den nye farve vil komme på hele 
skærmen. Dette kræver som du kan se 
i Basic programmet en kode 27 og 
kode 91 samt et 2-tal og et stort 
J. 

Som start er en sekvens som skifter 
skærmen til 80*25 farve, den er 
egentlig ikke nødvendig da din 
computer sandsynligvis fra start er 
i denne skærmtype. Fjern den hvis 
du finder den unødvendig. 

Egentlig er disse ESC-sekvenser jo 
ikke særlig lette at huske men du 
kan finde dem i din MS DOS manual 
under afsnittet om ANSI.SYS. 

Når Basic melder Ok efter Basic 
programmet er blevet kørt, vil 
tekstfilen med navnet COLOR.DEF 
ligge på disketten. Gå ud i DOS ved 
at skrive SYSTEM, og skriv TYPE 
COLOR.DEF når DOS melder klar. 

Bliver farverne ikke skiftet og er 
skærmen ikke blevet slettet, er 
ANSI.SYS sandsynligvis ikke blevet 
indlæst ved start af computeren. 
Check at ANSI.SYS og dens "moder¬ 
fil" CONFIG.SYS er på din startop 
diskette og at de ligger i hoved 
(root-) directory, de bliver nemlig 
ikke fundet hvis de ligger i et 
sub-directory. Det hjælper ikke 
noget at du har lavet en PATH- 
(sti-) henvisning til det directory 
hvor de ligger fordi opstart <boot ) 
systemet kigger efter dem længe før 
den når til at læse en mulig PATH- 
kommando. 

CONFIG.SYS skal indeholde en linje 
hvor der står DEVICE=ANSI.SYS, 
check dette ved at skrive TYPE 
CONFIG.SYS. kulle du få problemer 
så prøv endnu en gang at læse i 
blad nr. 3 fra i år. 






•**•■**- FARV/ER I CP/M 


M8-M8X DOS -*•*■** 


.110 7 iiiéc t-aat irtslailerede farver. 
120 ’ Laver programmet CQLOR.COM som 
130 1 kan definere farverne i MSX- 
140 » DOS og CP/M (MSX). 


DIM X<5) 

X (1) =&HFF: INF'UT"Forgrundsfarve" ;X( 1 
X(2)=&HFF:INPUT"Baggrundsfarve"; X (2 

X (3) =£tHFF: INPUT" Invers forgrundsfar 
; X (3) 

X<4) =&HFFs INPUT" Invers forgrundsfar 
5 X (4) 

X(5)=&H0:INPUT"0s Rom-rut ine, i: po 
; X (5) 

OPEN "C0L0R.C0H" FOR OUTPUT AS 1 
FOR 1=0 TO &H56 
READ X$ 

X=VAL("&h"+X$) 

IF I> =2 AND I< =6 THEN X=X(I-1) 
PRINTttl,CHR$(X); 

NEXT I 

PRINT:PRINT"Fini" 

CLOSE #1:END 

’mc data 

DATA IS,05,FF,FF,FF,FF,00,F3 
DATA 06,FF,21,02,01,7E,B8,28 
DATA 03,32,E9,F3,23,7E,B8,28 
DATA 03,32,EA,F3,23,7E,B8,2B 
DATA 11,87,87,87,87,4F,23,7E 
DATA B8,28,07,B1,D3,99,3E,8C 
DATA D3,99,3A,06,01,A7,28,13 
DATA 3A,E9,F3,87,87,87,87,4F 
DATA 3A,EA,F3,Bl,D3,99,3E,87 
DATA D3,99,C9,DB,A8,E6,FO,32 
DATA 53,01,F7,00,62,00,C9 


100 ’ Color - SOI 

110 ’ med fast installerede farver. 

120 ’ Laver programmet COLOR.COM som 
130 ’ kan definere farverne i CP/M 
140 ’ 40-tegns skaerm. 

150 ' 

160 DIM X(2) 

170 CLS 

180 X(1)=&HFF:INPUT"Forgrundsfarve";X(1 
190 X<2)=&HFF:INPUT"Baggrundsfarve";X<2 

200 OPEN "0",1,"COLOR.COM" 

210 FOR 1=0 TO 37 
220 READ X 

230 IF 1=2 OR 1=3 THEN X=X(I-1> 

240 PRINT41,CHR$(X); 

250 NEXT I 

260 PRINT:PRINT"Fini" 

270 CLOSE 1:END 
230 ’ 

290 ’mc data 

300 DATA 24,2,255,255,6,255,33,2 
310 DATA 1,126,184,40,8,50,10,250 
320 DATA 135,135,135,135,79,35,126,184 
330 DATA 40,4,50,11,250,177,243,211 
340 DATA 129,62,135,211,129,201 
350 ' 

360 ’ rnc data - angivet i hex 
370 ’ 18,02,FF,FF,06,FF,21,02 
380 ’ 01,7E,B8,28,08,32,OA,FA 
390 » 87,87,87,87,4F,23,7E,B8 
400 ' 28,04,32,OB,FA,Bl,F3,D3 
410 ’ 31,3E,87,D3,81,C9 


100 » Color - PC 

110 ’ Laver tekstfilen COLOR.DEF 
120 ’ som kan definere skaerm farver 
130 ’ ANSI.SYS skal benyttes. 

140'’ For at definere farverne skriv 
150 ’ i MS-DOS: TYPE COLOR.DEF 
160 ' 

170 OPEN "COLOR.DEF" FOR OUTPUT AS 1 
130 PRINT#1,"" 

190 PRINT#1,"Definer farver" 

200 READ TSi 

210 IF TS$="*" THEN CLOSE 1:END 
220 N$=CHR$(27)+CHR$(91)+TS$ 

230 PRINT#1.N* 

240 GOTO 200 
250 « 

260 ’Set Mode 80*25 color (farve skaerm 
) 

270 DATA "=3h" 

280 ’All attributes off (standard farve 
) 

290 DATA "Om" 

300 ’White, bold on (hvid ekstra lys) 
310 DATA "37;lm" 

320 ’Blue backg. (blaa baggrund) 

330 DATA "44rn" 

340 1 Erase Display (slet skaermen) 

350 DATA "2J" 

360 DATA * 



Kulørt farve-flimmer fra Kurt 



ELVA RENSAR LAGRET! 



RGB-MODELL 
pris: 1500,- 

SVI 787 3,5" EXTRA DISCDRIVE 
pris: 995,- 


X'press år datorn I6r toretag. 
skola och hem. Den har In- 
byggd diskettstatlon och en 
mångd progrømvaror som 
ingér i priset. 

Forforetagaren 
passar X'press utmSrkt. Låmp- 
liga program att komplettera 
med år ord- och textbehandling, 


med order-takturering-lager- 


De mest kånda lorelagspro- 
grammen går att anvanda som 
I ex Wordstar, dBase II. Delta, 
Arken, Mulliplan, Supercalcetc. 

Som kommunikations¬ 
lungerar X'press utmarkl. Både 
I6r låretag som ska kommuni- 


Som skoldator 
år X'press etl bra alternativ. 
Programspråken MSX-Basic, 
Comal. och Assembler 
ASMEDIT saml operativsyste- 


For skolorsom villkopa 
X'press har vi ett specialpris på 
en klassuppsåttning med 8 

skrivare. 

Som "hemriator 

år X'press den mest komplella 

Den arbelar dessutom myckel 


MSX - ny vårldsst3ndard 
for mindre datorer 
Ca 30-talet av de stora tillver- 

sam standard. SVI Spectra- 
video hartillsammans med bl a 
Canon, Panasonic, Hitachi, 
Sony, Toshiba. Yamaha. JVC, 
Philips och andra slora lillver- 
kare enals om ett gemensaml 
system I6r mindre datorer - 

Det betyder att tillgången på 
program redan år mycket stor 
och alt det tillkommer nya pro¬ 
gram praktiskl laget varje dag. 

Portabel 

Siddet i bakkanten på dalorn 
lungerar som bårhandlag. Del 
tungerar dessutom som skydd 
Idr anslutningarna på baksidan 
under transport. Den smidiga 
axelremsvåskan ingår i prisel. 
Den rymmer dalor. disketter 
och anstutningskablar. 


priserna exkl. svensk, moms. 
Vid forsaljning till Danmnark 
tillkommer dansk moms! 












SVI-256SF (1 FLOPPY) 
pris: 3100,- 



Presenting the SVI Alternatives 

Superior Quality. Affordable Price. 



TILLBEHORTILL SVI-318/328 


7602-3 

Miniexpander SVI-602 

Å6 

70 

- 

7827-6 

Modem 75/1200 med Videotexinterface 
programmodul ingår 


300 

_ 

7801-9 

DiskinterfaceSVI-801 

P&J5 

200 

- 

7601-3 

Superexpander svi-601 
med plats for 7 interface 

MM 

425 

_ 

7802-9 

Centronicinterface 

PBP 

190; 

: - 

7812-4 

Kablage f5r parallellt snit 


:- 70: 

: - 

7972-6 

MÅTNING, STYRNING & REGLERTEKNIK 
Tekniska applikationer 


60: 


79700 

Basic på Spectravideo 


40: 

; - 

7972-3 

Teledata på Spectravideo 

A$i 

40: 

1 — 


Skriv ner din bestållning på en lapp 

och skicka den tilis 

ELVA DATAGROSSISTEN 

Box 3008 

200 22 MALMO 

SVERIGE 
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*-*•-*■*■ JAGT RA FEJL. I DATA -tf-*-#-#- 


JAGT PA FEJL 
I DATA 

Hvem har ikke prøvet, at 
indtaste et program, med en 
masse DATA—sætn i nger i, hvor 
programmet ikke ville virke 
fordi man havde lavet en lille 
banal indtastningsfejl. 

Her er nogle små tips til at 
få bugt med fejelene. 

I langt de fleste programmer, 
bliver datasætningerne læst 
fra en FOR-NEXT lykke, der 
indeholder et READ-statement. 

Hvis der er tale om variabler 
f.eks ved læsning af tal, kan 
det være svært, at lokalisere 
en fejl i en DATA-sætning. Men 
der er håb, så fortvivl ikke. 

Først save'r du dit program på 
bånd eller disk. 

Derefter sletter du alle 
sætninger, der ikke vedrører 
READ - DATA sekvensen. Husk at 
bevare DIM-sætni ngerne og husk 
at slette SCREEN sætningen. 

Lad os antage, at dit program 
herefter ser sådan ud: 

10 FOR X = 1 TO 10 
20 READ A(X) 

30 NEXT 

40 DATA 1,2,3,,5,6,7,8,9 

Tilføj nu linierne: 

100 FOR X = 1 TO 10 
110 PRINT A(X) 

120 NEXT 

og skriv RUN. 

Nu ruller DATA-sætningens 
indhold op over skærmen. 
Såfremt der er flere data end 
der kan stå på skærmen, kan du 
trykke på STOP når skærmen er 
fuld. Kontroller herefter 
omhyggeligt, at der ikke er 
fejl og såfremt der er flere 
data kan du blot skrive CONT 
for continue, hvorefter de 
næste data vises. 

Hvis programmet giver 


fejlmeddelelse inden linie 100 
så kan du få de læste data at 
se ved at skrive GOTO 100, 
hvorefter du kan se hvor langt 
computeren er nået før den gav 
fejl. 

Hvis der er tale om 
Strengvariable kan du bruge 
denne fremgangsmåde: 

10 FOR Y = 1 TO 3 
20 READ A(Y) 

30 NEXT 

40 DATA ”MSX”,”SVI”, 

50 DATA ”PC” 

Dette program vil give en 
fejlmeddelelse på grund af det 
sidste komma i linie 40. 

Her opfatter computeren kommaet 
som en tom streng, hvilket 
giver fejl. 

Tilføj nu følgende linier: 

100 FOR Y = 1 TO 3 
110 PRINT A$(Y) 

120 IF A$(Y)=”” THEN PRINT ”*** 
NUL STRENG ***” 

130 NEXT 

Når du kører programmet vil det 
standse med fejlmeddelelse 
på grund af kommaet i linie 40. 
Skriv nu GOTO 100 hvorefter du 
får at se hvad der er læst og 
at årsagen til fejlen er en 
NUL-streng. 

Når fejlene er lokaliseret skal 
du omhyggeligt notere dig, hvor 
de ligger, og derefter LOAD'er 
du dit program ind igen og 
retter de fundne fejl. En meget 
almindelig fejl er, at man 
forveksler 0 og 0. Jamen er det 
ikke det samme??? Nej!t tallet 
nul og bogstavet 0 er to helt 
forskellige ting. 

Altså det er ikke umuligt at 
taste fejlfrit, men det er 
sjældent, at det lykkes første 
gang (det har mange vist 
erf aret) . 

peter 








NYE SPIL 


Efter en lang pause med anmeld¬ 
eriet går jeg nu lige så stille i 
gang igen med beskedne 3 program¬ 
mer. Og de spillelystne må desværre 
lade sig nøje med et enkelt. 

Af: Kim Andersen 


Navn: Turbo 5000 
Firma: Robtek 


Turbo 5000 er et universelt 
nytteprogram til MSX 1 & 2, det 
står i alt fald i inledningen af 
manualen til denne cartridge. Med 
programmet får man et hav af disk¬ 
rutiner, herunder genoprettelse af 
filer slettet med 'KILL', filsorte¬ 
ring m.m. Man får mulighed for at 
få cassetten til at køre med op til 
4600 baud. Hardcopy af alle 9 MSX- 
skærme på både MSX-, IBM-, og EP- 
SON-printere er mulig. Til sidst er 
der selvfølgelig en ”back-up” (!) 
rutine, der gør det muligt at ko¬ 
piere mc-programmer fra bånd til 
disk, fra bånd til bånd osv. 

Programmet, der kaldes fra 
basic, er menu-styret og fungerer 
egentlig meget godt. Det eneste der 
irriterede mig var at programmet og 
dermed manualen er Hollandsk, men 
kan man lidt fransk, tysk, engelsk 
og serbokroatisk går det som end 
også. 


Kvalitet:9 Grafik:8 Actions- 
Lyd:- Betjening:10 Total:9 


Navn: FM Musiwriter 
Firma: Avic Soft 

Dette program nåede jeg desværre 
kun lige at snuse til. Som man kan 
udlede af navnet er det et composer 
programmet til SFG modulet. Selvom 
jeg ikke studerede programmet i 


længere tid så jeg dog straks 
hvilke features det havde. Modsat 
Yamahas eget composer program havde 
dette store tydlige noder (men dog 
så også kun een linie på skærmen), 
5 forskellige menuer der var meget 
let overskuelige, mulighed for 
rytme, akkorder og meget mere. 
Programmet havde dog også minusser. 
Det kunne ikke bruges sammen med 
Yamahas music keyboard, kun sammen 
med et MIDI-keyboard og man kunne 
ikke få sin komposition printet ud 
på en Epson-printer, kun på en MSX. 

Kvalitet:10 Grafik:10 Action:- 
Lyd:-(13) Betjening:9 Total:9.7 


Navn: Knight Tyme 
Firma: Mastertronic 

Her har Mastertronic lavet et 
spil som udmærker sig ved ikke at 
have den samme ødelæggende effekt 
på mine nerver som alt det andet 
bras de plejer at lave. Spillet er 
et i serien med den gennemgående 
figur Magic Knight. Denne gang er 
han kommet frem i tiden på et 
amerikansk rumskib, og hans opgave 
er at få fat på en tidsmaskine for 
at komme tilbage (det var i hvert 
fald hvad jeg fik ud af den 
spartane'forhistorie). Spillet der 
er i eventyr-genren er udstyret med 
en meget flot grafik, og al 
handling foregår gennem menuer 
(undtagen at gå frem og tilbage 
mellem de 5-6 baner, det klarer 
joy-sticket direkte). Spillets 
sværhedsgrad fandt jeg aldrig ud 
af, for en formand har virkelig 
andet at lave end at sidde og 
spille hele dagen. 

Kvalitet:9 Grafik:10 Action:8 
Lyd:9 Betjening:9 Total:9 


Ja det var så det. Jeg håber at 
jeg vender frygtelig tilbage med en 
masse nye spil, for lidt tid kan 
der vel blive til joy-sticket. 
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*-*•*-* HVAD ER DET •*■*"*•* 


HVAD ER DET 

*9£73£d}fg -> MTd£ SX £87 <- 


5øa t/aa øø døø fao* h ommø * 06 ng* 
føogøam 060000 * *** S/amaha S 3 C 5 K + 
SSC5M99 dø* 0*0600 oøøé få M3X te 
comfatøøø mød 358 05 øftøø nog*ø få 
mndøingøø aom 0 * 00*0 høø * *andø* 
fart. * 000 * (£oøa *hø SSønioua). 
Pøogøammø* 00 060000 * øf Soøotgn 

8 ng. øø føogøammø* 006000000 få øn 
hø* andøn m4dø ønd man føø høø 00 * 
øn mådø aom f øø må aigø *i**a*øø mig 
oøøømådø møøø*, Saøoign ognøo *660 
a* man 06 a* høéø hottøn * aahhøn øå 
døøfoø han man éøa****ø øn hofi * 
U3d frtiø 3.50 £o**aø og hø-tø man øå 
fam **dø føogøammø* fam man mø*dø 
mig øom øøgia*øøøø* éøugøø øød o* 
øøndø 25 £ 0**00 ***: 

Saxotgn 8 nø. 

7724 8 øøøn 8 aø*and £t*aø 
3føingfiø*d, 7*øgin*a 
22153 U3d 

3om øøø*ø*øøøø* uøøø haø man 00 * *■** 
øåd oø øøftødning øom* ofdotøøing af 
føogø am m ø * høøøøanø dø* foøéødøøø 
dø* foøøøåø øød a* øøndø øn diah 
<3000 øød*aø* 1 £>o**aø 0**00 øød at 
øøndø 3.50 £o**aø, man fåø 

øø*øfø*øø**ø éøahød nåø øn 
ofdotøøing 00 foøøøåø*. 

9a*ødø* foø a* øøndø éad hø** *** 
Ufd haø Soøotgn oøøå ****-ad* at man 
d*ø* 0 *åaø 0 øø ftøoøø a mm ø * diøøhtø føa 
éøuøøø *** éøuøøø døø 00 *nøøn 
hofiéøohg**ø*oø oø ha*ø øåføørn* man 
ognøo dø* 00 noøø* fam man øå mø*dø 
ø*ø øom øøø*ø*øøøø* éøuøøø, hø**hø 
føø *000 manøø o** øøøø føø o** * 

a**ø ***fm*dø øø*a. 

Tøogø ammø * øø fu*d odégggø* mød 
hfmtføtøho* d* 006*0 *** ø 6 mømøn du 
éøhøøøø a**øå *nøøn frtintøø, man 6 an 

* ønhøøø faøø få hfm*f føøm, doø 6 un 

* diahøøøaion døø hø*ø du 60000 
frtoøøommø* føa éånd døø 60000 dø* 
oøøå udmmøhø* øå må du undømøø 
hfmtfø*øho*øønø oø du han øå få 
hfmtføtøhotøn mød føintø* ud få 
fafiø. 


Maø du tgot *** at få frtoøøommø* 
øøndøø du é*o* øn d*ø 6 foømottøøø* 
øammøn mød øn Pøonhøøøt 000060000 * 
*** undøøtøgnødø oø du 0 ** få 
frtoøøommø* 60 ** oø fø** oø høød du 
øå 0 ** øø hø** of *** din øøøn 
øamø****øhød. 

Haø du *660 d*ø 6 ø*at*on øøndøø du 0 * 
éånd øøddaø* 000060000 * mød foø*o 
øom* 60 20 , - øom dm 66 øø udfrtintning 
at monoo*. 

P-xogøammøt fart 6 un *n*øøø 000 foø 
Som futs 00 fø 00 mød S/amaha Modatø* 358 
05 a**ø andøø 0 ** hun øf**dø **d og 
føngø øød a* éøø****ø dø* idøt dø* 
00 oéøugøt*gt udøn dø**ø modul. 

Midi 3*aø toøøø din Somfutøø om *** 
øn Sxfandøø mød Midi 3n/Oa* 0**00 
Midi fn/Thøuø og mød a**ø 
foc***tøtøø øom hø <000 *** 0 * Midi 
£ 00*00 16 Kanaløø agotøm 0 x 0 * 00*00 

adgang *** 96 otømmøø høoøaf man 

fø** han *oadø ngø dø 60000 mød 
aammø foømat øom 0**0 andøø . i V 68 
f**øø øndøidøøø han al* aoftøaøø *** 
52)01 ogaå éøugøø *** Midi, 3*aø. 

£øt*ø han han é**øø øn oføømøning af 
**d* øom føogøammø* han, øå du må 00 
foø dig 00 * 0 , éøo-*i* din Kofi høo. 

ffohnng 36 Jfuo-ih 
£*ndøømngøt 237 
8600 3i*høéoøg 

0363: #øg øådøø oga-å 0000 øn dø* 
andøø dia-ha- mød 7>ué**c £oma*n 36*. a. 
3ma** "8 "mød hfmtføfidøø Ml£U aamt 
3<fuøgøø og tlnaqoøgøø mød øidøøø, £u 
han aøndø øn føanhøøø* aøaøhoøøø* aå 
aha* føg aøndø dig øn ** 0*0 0000 

høod døø øø *i*gmngø**g*, dø* øø 3.5 
tommøø d*aha og ftiaøn 00 hø 50, — fø 
d*ah fnc*. Poøto. 


Møf. 





-#"**-*- M8X REØNEROBOT 


MSX REGNEROBOT 


Hermed bringer jeg til jer som ikke 
kan regne en Regnerobot der let kan 
lære jer kunsten, hvis du allerede 
kan var det måske en ide til jeres 
Lillebror eller søster hvem ved ... 
Programmet har jeg fra en klub MSX 
udi i det Hollandske så hvis der er 
mystiske ord i Rem så er det derfor 
God fornøjelse fra Johnny B. 


2 PLAT' VI5T255L64M100" 

4 KEY OFF 

5 REM MSX-REGNEROBOT 

6 REM SYNTAXEN 1988 

7 REM JOHNNY B MUSIK 

8 DEFINT A-Z 

9 DEF FNR (X) -RND (1)*X 

10 DIM A$ (127) :FOR X-48 TO 57: READ 
A$(X) :NEXT 

11 At(43)-"BM+2,-1U4D2L2R4BM+2, +3 " 

12 A$ (32) -" BM+7, +0" 

13 A$(45) -"BM+1, -3R3BM+2, +3" 

14 A$ (88) E6G3H3F6BM+2, +0" 

15 A$(61)-"BM+0, -2R4EM+0, -2L4BM+6, + 
4" 

16 S$-CHR$ (&H3C) +CHR$ (&H7E) +CHR$ (25 
5)+CHR$(255)+CHR$(255)+CHR$(255)+CH 
R$ (&H7E) +CHR$ (&H3C) 

19 N$-" CDEFG" : FOR X-l TO 5: N$ (X) -MI 
D$ (N$, X, 1) :NEXT 

20 COLOR 14,1,1: GOTO 1000 
60 REM SUBROUTINE FGT 

65 REM - 

70 FOR M-l TO LEN(A$) 

80 V m ASC(MID$ (A$,M, 1) ) 

90 DRAW "a0XA$(V) ;BM+l,+0" 

95 NEXT 
100 RETURN 

150 DATA" BM+O, -1U4E1R2F1D4G1L2BM+0, 
-2E2BM+3, +4" 

160 DATA "R5L2U6G3BM+7, +3" 

170 DATA "R4L4U1E1R1E2U1H1L2G1BM+6, 
+5" 

180 DATA "BM-0, —1F1R2E1U1H1L1R1E1U1 
H1L2G1EM+6, +5" 

190 DATA " EM+3,+0U6G3D1R4EM+2,+2" 
200 DATA " R2E2H2L2U2R4BM+2, +6" 

210 DATA "BM+1, -0R2E1U1H1L3D2U3E2R1 
EM+3, +6" 

220 DATA "EM-O, -5U1R4D1G2D3BM+4, +0" 


230 DATA "EM-O, -1U1E1R2E1U1H1L2G1D1 
F1R2F1 Dl GI L2BM+5, +0" 

240 DATA "BM+1,-0R1E2U3H1L2G1D1F1R3 
BM+2, +3" 

1000 REM START 

1005 COLOR 1,14,14 

1010 SCREENO: PRINTCHRt (12) 

1016 LOCATE 15,0:PRINT' MSX " 

1020 LOCATE 13, 5:PRINT'REGNEROBOT' 
1030 LOCATE 13, 6:PRINT' **********" 
1040 LOCATE 5,10: INPUT "SVÆRHEDS-GR 
AD (5-100)";G 

1045 IF G<5 OR G>100 THEN 1040 
1050 LOCATE 5,12:PRINT'REGNEARTER" 
1060 LOCATE 10,15:PRINT'1 - +" 

1070 LOCA TE 10,17: PRINT' 2 

1080 LOCATE 10,19:PRINT'3 - X" 

1100 LOCATEO, 22:PRINT' OBS AFBRYD SP 

IL FOR RESULTATER VED TRYK På ESC 

1110 BEEP 

1115 COLOR 14,1,1 

1120 IF TYPE<1 OR TYPE>3 THEN 1100 
1125 SCREEN2,1,14:SPRITES(1)-S$ 

1127 GOSUB 10000: REM TEKEN DE ROBOT 
1130 ON TYPE GOTO 1200,1300,1400 
1200 REM + 

1210 A - FNR(G):B-FNR(G):IF A+B>G THE 
N 1210 

1220 C m A+B: T$ m " +" : GOTO 2000 
1300 REM - 

1310 A-FNR(G) :B-FNR(G) :IF A-B<0 THE 
N 1310 

1320 C m A-B: T$ m " —" •• GOTO 2000 
1400 REM X 

1410 A -FNR (G/2) : B-FNR (G/2) : IF A *B>G 
THEN 1410 

1420 C-A *B: T$-" X' : GOTO 2000 

2000 REM DISPLAY & INPUT 

2010 A$-STR$(A)+" " +T$+STR$(B) +" - 

2015 LA-LEN(A$) 

2020 DRAW "BM88,150C1S4" 

2030 GOSUB 70 
3000 REM INPUT 

3005 F-0 

3006 AA-AA+1 

3010 C$-STR$(C):C$-RIGHT$(C$, LEN(C$ 
)-l) 

3015 KB!-TIME/50 
3020 FOR 1-1 TO LEN(C$) 

3030 M$-MID$ (C$, 1,1) 

3040 K$-INPUT$ (1) : PLA Y "N70" 

3050 IF K$-M$ THEN 3060 
3052 F-F+l:PLA Y "NI2" :GOT03040 
3060 A$-K$:DRAW "Cl":GOSUB 70 








■*■*** MSX REGNEROBOT MM 


3062 FOR Y-75 TO 55STEP -1:PUT SPRI 
TE 1, (128, Y) ,6,1 :NEXT 
3064 FOR Y-55 TO 65:PUT SPRITE 1, (1 
28, Y) ,6,1 :NEXT 

3066 XP-88+(LA+I+1) *7:DRAW "BM-XP;, 
150" 

3070 NEXT 

3080 KL!-TIME/5O-KB 
3090 KT!-(KT!+KLi)/50 

4000 IF F>0 THEN 4100 

4001 FOR Y-0 TO 20: LINE(120,109+Y)- 
(150,109+20-Y) , 1 :NEXT 

4010 FOR Y-189 TO 21 STEP -1 
4020 LINE(28, Y)-(32, Y) , 14 
4030 NEXT 

4040 FOR 0-1 TO 5:SC-SC+1 
4045 LINE (0, 0)-(60,19) ,1, BF 
4050 SC$-STR$(SC) 

4060 DRAW "BM19,10C15S4" 

4070 A$-SC$:GOSUB 70:PLAY "XN$(0) 
4075 NEXT 

4077 FOR Y-21 TO 189:LINE(28,Y)-(32 
, Y) , 1: NEXT 
4080 GOTO 4200 

4100 REM MINPUNTEN . 

4102 AF-AF+1 

4105 FOR X-0 TO 15: LINE(120+X, 109) - 

(120+X, 129) , 4:LINE (150-X, 109)-(150 

-X, 129) , 4:NR-59-X:PLAY " N-NR / " :NEXT 

4110 FOR 0-1 TO F 

4115 LINE (0, 0)-(60,19) ,1, BF 

4120 SC-SC-1 

4130 SC$-STR$(SC) 

4140 DRAW "BM19,10C15S4" 

4150 A$-SC$:GOSUB 70:NEXT 
4200 A$-INPUT$ (1) 

4210 IF A$-CHR$ (27) THEN 30000 
5000 REM 

5002 X-l28:FOR Y-75 TO 140:PUT SPRI 

TE 1, (X, Y), 6,1 :X-X-1 :NEXT 

5010 FOR X-78 TO 192: LINE(X, 130) -(X 

, 160) , 14: PUT SPRITE 1, (X, 140) , 6,1 :N 

EXT 

5012 X-l 92: FOR Y-140 TO 75 STEP-1:P 
UT SPRITE 1, (X, Y), 6,1:X-X-l :NEXT 
5020 PUT SPRITE 1, (128, 75) , 6,1 
5100 GOTO 1130 
10000 REM TEGN ROBOTTEN 

10010 REM - 

10020 COLOR 14,1,1 

10035 FOR X-0 TO 25:CIRCLE(RND(1) *2 
55, RND(1) *190), RND (1) *5,15 

10036 PLAY' V15T255L64" 

10037 N-RND(1) *96:PLA Y "N-N ;" 

10038 NEXT 


10040 LINE(70,100)-(200,190) , 4, BF 
10050 LINE(100,100) -(1 70, 40) , 4, BF 

10055 LINE (100, 40) — (80, 20) , 4 

10056 LINE (170, 40) -(190, 20) , 4 
10060 LINE (78,130)-(192,160) , 14, BF 
10070 REM OGEN 

10080 LINE (110, 50)-(130, 70) , 14, BF 
10090 LINE (140, 50)-(160, 70), 14, BF 
10100 LINE (115, 60) —(125, 70) , 0, BF 
10110 LINE (145, 60)-(155, 70), 0,BF 
10120 PUT SPRITE 1, (128,75) ,6,1 
10130 REM MOND 

10140 LINE (120, 95)-(150, 95) ,15 
10150 LINE (24, 20)-(36,190), 15, B 
10160 LINE (25, 21)-(35,189), 1, BF 
10500 RETURN 

30000 REM SLUT & OVERSIGT 
30000 REM SLUT & OVERSIGT 
30010 SCREENO:C0L0R1,14:PRINTCHR$(1 
2) 

30019 LOCATE 10, 5:PRINT' OVERSIGT' 

30020 LOCATE 10,10:PRINT'ANTAL OMGÅ 

NGE ";AA 

30030 LOCA TE 10,12: PRINT' RIGTIGE SV 
AR " ; (AA—AF) 

30035 IF AAOO THEN GR!-KT!/AA 
30040 LOCATE 10,14:PRINT'DIN .REAKT 
IONSTID''; :PRINT USING " ###. ##" ; GR! ; 

: PRINT' sek " 

30045 IF AF-0 THEN 30060 

30060 LOCATEO, 22:PRINT'TRYK SPACEBA 

R FOR START, ESC FOR END" 

30062 A$-INPUT$(1) 

30065 AA-0:KT! -0:AF-0:SC-0 


30080 IF A$-CHR$(27) THEN END 
30090 IF A$-CHR$(32) THEN 1000 
30100 BEEP:GOTO 30070 
50000 DATA &H3C, &H7F, 0, 0, 0, 0, &H7F, & 
H3C 

30070 1 
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*-*-*-* SVI BIB -M--*-#--* 


X / 


Liste af programtitler 
i SVIBIB : 


©<Z? □ G> □ G> 


SVI BIB er KUN til SVI 318-328 

SVIBIBS’s POST GIRONR. er! 

4077385 

Bestilling af programmer gøres på 
postgiro hvorpå der skrives hvilke 
programmer du ønsker,samt om du vil 
have disk eller bånd. 

Husk også at skrive din egen adr. 


Nyttige programmer : 

Database , Editor , Hushold ,Matte, 
Mc scroll , Ramdis , Rentereg , 
Rulleteks , Screen Rig , Sdump.mc, 
Sorter , Sprite ed , Sprog , 

Tegner , Talkback , Taperut , Tips 
Kalender , Supertegn. , Periode 

spil : 

Aladdin , Bovla, Bjerg, Darts, 
Death, Diktator, Frans, Hell, 

Kaiaha. Skyd nu. Oil 

Spil pakker : 


PRISER 

Bånd - 25kr 
5.25" Disk - 25kr 
Pris pr. program - 10kr 
Pris pr. programpakke - 15kr 
Udlistning a-f program - 5kr 


Programpakkerne er lavet på den 
måde at man loader alle 
programmerne ind på en gang , og 
kan så vælge ved hjælp a-f en meny 
hvilket program man ønsker at køre 
deretter kan man stoppe og vende 
tilbage til menyen ovs.ovs. 

HUSK når I bestiller programpakker- 
at skrive hvilken katarogi I 
ønsker det pågældende nr. -fra. 

Programmerne bestilles hos: 

Per Underlien 
Rytterhusene 44 
2620 Albertslund 
GIRONR. 4077385 

Programmer der ønskes optaget i 
SVIBIB sker på samme adr. 

Det er jo sådan at vi NU GIVER 
2 bånd eller 
5 5.25" disk . 

For de programmer der optages, i 
SVI BIB. 

Hilsen Per 


Nr. 1 : Male , Pyramide , Labyrant 
Nr.' 2 : Pusle , Attack , Roulette 
Nr. 3 : Flight , Sur , War 
Nr. 4 : Mons , Hopper , Star 

Nr. 5 : Moon , Myre , Slange 

Nr. 6 : Robot , Pengo , Snowbal1 
Nr. 7 : Danmark , Frogger 
Nr. -S : Skyttepro , Lemona 

Musik pakker : 

Nr. 1 : Rock musik 9 numre 

Nr. 2 : Rock musik 9 numre 

Nr. 3 : Musik 9 numre 

Nr. 4 : Lyd Kirn , Sound Kim , Orgel 


Andet pakker : 

Nr. 1 : Rio , Lys , Ghost , Børge 
Symtri , Grafik 


Kun til disk : 

Budgetpro. , Dbase 1 no.l , Grafen 
Tegnepro. , Telefonpro. 
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■*“*-*•*■ HARDCOPY & ANNONCE -IH«-** 


HARDCOPY 


10 

******************************* 

15 

• * 

* 

20 

'* HARDCOPY 

* 

25 

' * 

* 

30 

'* AF SKÆRMBILLEDE 

* 

35 

' * 

* 

40 

• ****************************** 

45 

• * 

* 

50 

'* SYNTAXEN 

* 

60 • 

• * 

* 

65 

'* 1988 

* 

70 

' * 

* 

75 

'* AF JOHNNY B MUSIK 

* 

80 

' * 

* 

85 

• ************************* 

***** 

90 



95 




65000 POKE 62487!,0 
65010 Zl—1:SC-PEEK(64687!) 

65020 IF SC>2 THEN BEEP:RETURN ELS 
E ON SC+1 GOTO 65030,65030,65090 
65030 LPRINT CHR$ (27) ; "A" ; : IF SOO 
THEN ZB-40:SA-BASE(0):SE-BASE(0)+ 
959 ELSE ZB-32:SA-BASE(5):SE-BASE( 
5)+767 

65040 FOR VP-SA TO SE:ZC-VPEEK(VP) 
65050 Zl-Zl+1:IF Zl-ZB THEN Z1-0:L 
PRINT CHR$(13) 

65060 IF ZC<32 THEN LPRINT CHR$(1) 
+CHR$ (64+ZC) ; .-GOTO 65080 
65070 LPRINT CHR$(ZC); 

65080 NEXT VP:BEEP:RETURN 

65090 POKE 62488!,1:DEFINT P:DIM P 

4(255) 

65100 FOR Pl-0 TO 191 STEP 8:FOR P 
2-0 TO 255:FOR P3-0 TO 7 
65110 IF POINT(P2,P1+P3)< >PEEK(624 
42!) THEN P4(P2)-P4(P2)+2'P3 
65120 NEXT P3,P2:FOR P2-0 TO 255:L 
PRINT CHR$(27)CHR$(83)"0001"CHR$(P 
4(P2));:P4(P2)-0 

65130 NEXT P2:LPRINT CHR$(27)CHR$( 
66 ) 

65140 NEXT PI:LPRINT CHR$(27)CHR$( 
65) 

65150 POKE 62488!,0:BEEP:RETURN 
65160 ' - 


65170 ' HARDCOPY DOBBELT SA STORT 
65180 ' TILF0J I: 

65190 ' LINIE 65000 LPRINTCHR$(14) 
65200 ' LINIE 65080 LPRINTCHR$(15) 
65210 ' GOD FORNOJELSE - JOHNNY 
65220 ' -•- 


INDTAST LINIERNE 65000-65150 
GEM DEM SOM EN ASCHII FIL OG 
MERGE DEN MED DIT PROGRAM 
HVOR DER SKAL PRINTES BILLEDE 
SKRIV GOSUB 65000 I DIT PRG. 


ANNONCE 

S Æ L G E S : 

SVI-328 Computer 
Philips monitor (grøn) 

Båndoptager 

+ ca. 30 org. bånd 1.500 kr 


SVI-801 Disk Controler 
SVI-902 256 kb Disk 

70 disketter i boks m/lås 1.500 kr 


SVI-802 Centronic Interface 300 kr 


Cartrigés: 

Flipper Slipper 100 kr 
Super Cross Force 100 kr 
Frantic Freddy 100 kr 


Bøger: 

MSX For begynder 150 kr 

Spectravideo eomputing 75 kr 

Games on your Spectravideo 40 kr 

Basic Spil (3 bøger) 50 kr 

Samlet pris 300 kr 


Uffe Bage Hansen 
Hørmarken 4 
8362 Hørning 
06 922497 


K 0 P E S ! 

Disk drive till MSX1. 

SONY HBD50 eller annan som passar 
till SVI-728. Pris 800-1300 skr. 
OBS! Ej SVI-707! 

Endast inom Sverige. 

Petter Tiilikainen 
Rågv. 19 

S-95400 Gammelstad 
tel. 0920-54621 


i 
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*-»•»-» KØB/SALG 8« NYE MEDLEMMER » ■* " *"» 



SÆLGES!!! 

KUNA's bog »MSX-BASIC 
FOR SERIOUS AND NOT SO 
SERIOUS APPLICATION«. 

En god bog der fortaller 
om sprite, 3D-grafik, 
sorterings-metoder og 
meget mere. 

Las ogs& anmeldelsen i 
SYNTAXEN nr. 5 1988 side 7. 

NYPRIS 132.00 KR 

-47* - 62.00 KR 


SÆLGES FOR 70.00 KR 


ANNONCE 

HIT-BIT HB75P 
DISK (SONY) HB-50 
PLOTTER PRN B-C 41 
PRINTER SEIKOSHA GP-550A 
BANDOPTAGER 

20 DISK,DIVERSE BØGER & BAND 
IALT CA 70 SPIL 

PRIS: 5000 KR. 

KONTAKT: LARS HANSEN 
TLF: 02-984205 efter 16.00 


DAGENS BEDSTE TILBUD. 
RING Pft TLF.07 464327 
OG SPØRG EFTER HENRIK 
HEN GøR DET INDEN DEN 
BLIUER SOLGT!!! 

OBS. Ring kun lørdag 
eller søndag pga. 
efterskole ophold 



INDMELDELSESBLANKET 

formavn: __ 

efternavn: • _;_ 

adresse: _____ 

TLFNR.: _____ 

PQSTMR. ♦*¥:_- - - 

alder:____ 

MASKINE: ---- 

»iv. udstyr: _ 


INTERESSE OMRADE: 
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HEJSAN SVEJSAN *"*-*-* 


Har kommer några spelfusk från Petter"ComPetter"Q?iilikainen.. . 

STARQ.UAKE 

Koderna till teléportstationer: ' 

RAZON; TARAQ,; ANTIO j DULANjKWAKE; ANGOR; KRANZ; SNOOL; UPLAN; INDLE, EREOT j ZODIA 
ARGOL ooh OPTIN. 

WIZARJS LAIR 
Stage: kod: 

1 Caive 

2 Hawlo 

3 Crypt 

4 Dungn 

5 Vault 

6 Liayr 

7 Lyons 

Mutant Monty 
10 CLEAR 100,&H37PP 
20 BLOAD"CAS:",R 
30 POKE 27872,0 
.10 DEPUSR=&H9000 
Skriv sen RUN. 

Ghosthusters 

1. Ladda in spelet. 

2. Nae melodin borjar tryck SHIPT och Pi 
3.Skriv in SYI som namn. 

4.Skriv in att du har en kod. 

5.Skriv in 11450310 som kod 

Du .får nu borja spela...Med 20.1900 dollar.« 

Turbo-saving av egna program: 

CSAVE"Pilnamn",2 

KLIT BLlf KUP KUP KLIP KUP KLIP KUP KLIP KLIP KLIP KLIP 
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■JMHf-M- NYHEDER TIL MSX * ATTENTION *-»*-» 


NYHEDER TIL MSX 

Et nyt opdateret I71SX system bitver 
na lanceret af ASCHI I corp og det 
hedder mSX-2 Plus, frigivelsen sker 
den 9-9 1988 i Uapan og kort efter 
vil HSH vare klar tit at levere Idet 
de har sikret sig eneret for 
dlstrihutation i Europa. 

Systemet består af ftg: 

mSX-DOS V 2.0 

Extra Ram 

Extra Rom 

Memory Mapper 

Di sk 

Hånd bog med de na over 1 60 

kommandoer i MSX-DOS v.2.0 

Prisen vides ikke i Skrivende stand 
idet HSH ikke er ferdig med at 
forhandle med ASCHI I men forventes 
at blive for hele pakken ca. 

400-500 D mark. 

For mOS medtemmer - 10% 

Fra 1-10-88 stiger prisen for 
medlemskab af mOS fra 19.95 Dm tit 
29,95 for et år så du kan nå det 
endnu tit gammel pris, HSH ønsker 
ikke at give vor ktub flledi emsrabat 
idet han arbejder meget tat med MOS 
så vit du have rabatten må du ogsd 
vare medlem af mOS, hvilket ikke er 
nogen ddrtig ide idet det er rart at 
få impulser ogsd fra udlandet. 

HSH forventer at kunne tilbyde en 
mSX harddisk 20 IHega Byte tige op 
tit Jat med derom mere senere. 

Ping det nye mSX 2 Pias sat har jeg 
allerede bestilt et set så jeg 
btiver nok den første i Danmark der 
har det og jeg skat bringe en 
artikel om hvad det går ud på og 
hvad det kan. 

Adr. og Tlf HSH og mOS har varet 
bragt tidligere, kan du ikke finde 
dem så kontakt under tegnede. 

Hej fra Johnny B musik tlf 06 826698 



Jeres nyudnævnte formand har 
allerede gjort det fantastiske. Han 
har i sit ansigts sved sikret sig 
et større parti af Mastertronic’s 
spil ”Knight Tyme”. Som nogen måske 
har fornemmet er formanden når han 
virker som anmelder ikke den stør¬ 
ste fan af Mastertronic's produk¬ 
ter. Men ikke en regel uden undtag¬ 
elser. Læs mere i anmeldelsen af 
spillet andet sted i bladet. 

Udover spillet har jeg fået fat 
i nogle forbindeleseskabeler mellem 
computer og cassettebåndoptager 
(SVI-208). 

Priserne er som følger (inkl. 
forsendelse): 

"Knight Tyme” hvis det købes: 

- alene kr. 35,- 

- sammen med andre programmer i 
MSX-BIB kr. 25,- 

Cassettekabler, SVI-208, kr. 40,- 

Betalingen foregår gennem MSX- 
BIB. 

Som en allersidste ting har jeg 
også en farlig masse adaptorer der 
skal bruges på nogle SVI-728, der 
ved en fejl har en spejlvendt cas- 
setteindgang. Adaptoren består af 
et 15 cm 4 ledet kabel med skærm, 
med et henholdsvis han og hun 8- 
polet dinstik i hver ende. Hvis 
nogen står og mangler en sådan 
tingest (eller 50) til et eller 
andet afsindigt, så forærer jeg dem 
næsten væk, men ring lige og hør 
hvis du er interesseret. 
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*-»•** AL-ARM FOR MSX II *"#"*"* 


fiUMii ri);J m 23 


Hermed 2 små programmer ti i Alarmen 
i din fTlSX / I Computer. 

God fornøjelse Johnny B. 

1 0 ' ******************************* 


12 ' * m S X II- Alarm * 

13 ' * * 

14 '* TOHNNV B !7IUS/k S i LkEBORG * 

15'* * 

1G '* PROGRAm DEL 1. * 

17 '* * 

18 '* SYNTAXEN 1988 * 

19 '* * 


21 '******************************* 

2A ' 

100 CLS : k£y OFF: PR I NT"Tes t af fT)SX2- 
Alarmfunkti onen" 

110 PR! A/T 

120 PR I NT"Program ALARf Dl (Indstille 
Alarmtid) 

130 PRINT 

140 GET TimC T$:'Les den Aktuelle T 
id 

150 PR I NT"klokken er nu: 

"Tf 

ISO PR I A/T 

170 LINE INPUT "Indgiv Alarm tid: 

(tt:mm:00) " ;A* 

180 PRINT 

190 SET TimE Af,A:'Lagre Alarmtid i 
RTC-Chippen 

200 GET TimE Bf ,A:'udles Alarmtid f 
or kontrol 
210 PR! A/T 

220 PR! NT"Lagrede - Alarm tid: 

"Bf 

230 PRINT 

240 PRINT"Nu kan du slukke for Comp 
uteren når som helst du har lyst. 
250 PRINT 

2G0 PRINT"For at aktivere Alarmen k 
ør Programm ALARID2 / 

270 GET TimE Tf 
280 PRINT 

290 PRINT" (.1 mellemtiden er klokken 
blevet) "Tf 
300 PRINT 
310 END 


1 o '******************************* 

17 '* * 

.12 '* m S X II- Alarm * 

13 '* * 

14 '* JOWA/A/y B mus/k SILkEBORG * 

IS'« * 

16 '* PROGRAM BEL 2. , * 

17 ' * * 

18 '* SYNTAXEN 1988 * 

'« * 

21 '******************************* 

110 ' 

120 'Efter at Alarm tiden er sat me 
d Alarml 

130 'bruges dette program til at ak 
tivere Alarmen 
1L0 ' 

150 CLS:k£y OFF : PR I NT"Test af IDSX2- 
A larmfunkt i on" 

1G0 PRINT 

170 PRINT"Program ALARI7I2 (Aktivere 
Alarmtid) 

18 0 PRINT 

1 90 G ET TimE Af,A:'Udlæse Lagrede A 
larmtid 

200 PRINT"Lagrede Alarmtid: 

"Af 

210 PRINT 

220 PRINT"Ben aktuelle tid:" 

230 LOCATE 2 G,G 

240 GET TimE Tf:'Indlæs aktuel tid 
250 PRINT Tf. og vis den 
260 IF Tf O Af THEN 230 ;'Sammenlign 
Autuel tid med alarmtid 
270 ' 

280 'Aktuel tid møder Alarmt id : Al 
arms ignal Starter 
290 ' 

300 SOUNB 0,170 : SOUNB 1,80:SOUNB 2. 
1 30 : SOUA/D 3,80 

310 SOUA/D 4,1 1 0 : SOUNB 5,80: SOUA/D 7, 
56 

320 SOUA/D 8,1 G: SOUNB 9,1 G : SOUNB 10, 
1 6: SOUA/D 11,180 
330 SOUA/D 1 2,1 : SOUNB 13,8 
340 GOTO 230 


Sis ItUt ::::: -JW~ HHHj 
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**--** LØST OG 


LØST & FAST 


Hermed igen lidt informationer ti i 
mSX. fans, jeg gør først opmærksom på 
at se i vom jeg nævner priser fra 
Firmaer så er det kun for Jeres 
skyid, idet jeg ikke seiv får så 
meget som en rød reje for det, 
Faktisk så koster det mig en hei dei 
i porto og telefon at holde mig selv 
ajour med disse ting. 

Fra HSH computerfirmaet i Tyskland 
har jeg lige fået en ny prisliste er 
du interesseret i at se hvad de har 
med priser kan du sende en frankeret 
svarkuvert til mig så skal du få en 
kopi. 

Jeg nævner her et par udpluk af 
interesse. 

Ram udvidelse på 512 k BIT}. Uk3,~ 

Philips Floppy Interface LID. 233,- 

72o kB Floppy uden kasse BH). 233, — 
Sanyo HIP C HISX 1 Computer BH). 238,- 

Spectravideo 728 BH). 238,— 

Toshi ha H)SX RS232C In ter 
face ind. kåbe l BH). 270, - 

Philips HISX 2 VG 8235 med 
indbygget 1 SSBB disk BH). 838,- 

CP/H) 3+ systemdisk BH). 138,- 

B B3SE 2 Højn i veausprog BH). 228, - 
Wordstar Tekstbehandling BH). 228,— 

F 1 Spir i t konami BH). 60,— 

Nemes i s 2 konami BH). 63,- 

Elite Bi sk BH). 55,- 

EU te Bånd BH). L5,- 

Ja det var kun et lille udsnit, men 
det er da* rart at der er et sted man 
kan få Software til sin Computertype 
Vor egen klub har endnu ikke fået 
fingeren ud og fået en aftale med 

HSH men som medlem af HIOS får du 10 % 
rabat på alt hos HSH, et medlemskab 
af HIOS koster årligt BH) 13. 35 så de 
er jo hurtigt tjent ind, så får du 
endvidere et klubblad med nyheder 
fra det store udland, teksten deri 
er både Engelsk og Tysk, Hvis der 
bliver nok Banske medlemmer trykker 
de også gerne artikler på Bansk. 
Til at skrive i H)OS har man netop 

ansat Hr Behn en journalist fra et 
af de stor tyske HISX blade så det 
skal nok blive spændende. ■ 


FAST **•-** 


Undervejs fra Japan er desuden Ram 
udvidelser på 128 k 256 k og hold 
fast 1 Hlegabyte. 

HSH og H)OS adresser kan du se i et 
tidligere nummer af bladet. 

Hvis du har en Star printer så 
skulle du overveje at kontakte 

Lars Hansen 
Stationsvej 6 
3330 Hundested 

Han har netop lavet et program med 
67 NLQ fonter udelukkende beregnet 
til Star Printeren og det er kræs 
kan jeg garantere jer endvidere en 
Spooier på 32 k, det vil sige du får 
en Printer Buffer på 32 k som så 
fodrer printeren med tekst og du kan 
imens printeren skriver ud så evt 
foretage dig andre ting med dyret. 

Jeg vil tro at et par Hunde Lapper 
vil kunne købe dig en disk med disse 
lækkerier. 

Endvidere har Lars lavet et nyt m/BI 
10 med mange extra faciliteter på 
mSX 2 med SFG 05 pris med ret til 
opdatering ca kr 200,- 
Endvidere et Voselect program til 
SFG 05 med en Original Bank og 10 
User banker hvor du kan flytte frem 
og tilbage som du lyster du kan 
selvfølgelig imens spille dit Yk 
keyboard og Velocity kan stilles for 
alle stemmer, Programmet er kun for 
mSX 2 med SFG 05 pris ca kr 200,- 
Endelig er BX7 Voselect med 1 org 
Bank og 5 User Banker du kan bytte 
stemmer rundt Høre dem på din BX7 
eller TX7 og BX7 2 du kan efter at 
have lavet en god bank sende den til 
instrumentet lige som Voselect at 
dette program Totalt Hlusestyret og 
virkeligt lækkert også her pris ca 
kr 200,- alle programmerne med ret 
til opdatering. 

Hos Carolin Behn Heigihofstr 62 8000 
Hlunchen 70 kan man bestille en 
oversigt over Public Bomain 
disketter, priserne er rimelige hvis 
du sender en formatteret disk koster 
der BH) 10,- ellers BH) 20,- 
Ber er mange lækre programmer bla 
Sma 11 "C" Forth 83-Cobol-Sig/H) 
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*--**■«- LØST OG FAST * SVI-329 RESETKNAPP ■*-*** 


komplet 1TR Pascal C bas i c spil 
Textadventure 8080 oversætter oq 
meget andet, noget af det har jeg 
selv allerede på lager, og jeg kan 
levere de videre hvis nogen ønsker 
det. 

leg kan forøvrigt fortælle at CP/ff) 
3-h virker ganske for trindel i gt på 
vores fflSX computer selvom man har 
hørt rygter om det modsatte, men det 
må være tidligere versioner der er 
tale om. 

Ramudvidelser på Gk k er ikke til at 
opdrive, hvis nogen er interesseret 
i en sådan tingest har jeg fra SØREN 
fået en tegning ud fra hviiket vi 
herovre i det mørke er i stand til 
at fremstille et print, hvis nogen 
er interesseret så kontakter du 
undertegnede, i en Gk k Ram skal man 
bruge 2 stk 32k chips og de koster 
ca kr 200,- pr stk, så alt i alt kan 
en Ramudvidelse laves for ca kr 
800,- hvis man vil have den færdig 
leveret. 

Ram udvidelsen på 512k har jeg netop 
selv erhvervet og den har indbygget 
memory mapper og f. eks har jeg et 
program der opretter en Ram disk i 
Computeren, denne Ram disk fungerer 
som en extra diskstation og med 512k 
extra i min Sony har jeg en Ramdisk 
på ca 700 k og det er da flot, leg 
skal senere fortælle hvordan en 
sådan tingest arter sig i en IJJSX 1 
computer. 

Ok har du nogle gode tips eller 
problemer af en eller anden art så 
henvender du dig blot til mig, jeg 
er meget hjælpsom, blot skal du ikke 
som et nyt medlem af redaktionen 
ringe mig op og fortælle at en af 
mine udi istninger i bladet ikke 
virker når det så viser sig at 
~Torsken" har lavet tastefejl som 
den Noget vakse herovre i lylland 
kunne regne ud ret hurtigt efter 
beskrivelsen, men det gider jeg ikke 
sidde og bruge min tid på. 

ITlin adresse og Tlf Nr kender du. 


RESETKNAPP 
TIL SVI 328 

Magnus Pi hl har syslet med en 
software reset knap til SVI-328. 

Den er lavet i maskinkode og vir¬ 
ker på den måde at hver gang compu¬ 
teren modtager et interrupt og 
dermed hopper til hooket ’KEYINT’ 
checker Magnus’ program om der 
trykkes på <CAPS LOCK>, <SELECT> k 
<PRINT> samtidigt. Gøres dette 
stilles ProgramCounteren på adresse 
0000 Hex Dg vupti, så starter 
computeren forfra. 

SVI-328 "ResetKnapp" 


D200 Ld A,(FD83) 3A,88,FD 

CP C7 FE,C7 

JP Z,0000 CA,00,00 

RET C9 

FE79 JP D200 C3,00,D2 


Her programmet som BASIC: 

10 For I=fiihd200 to 8<hd203 
20 Read A$ 

30 Poke I, Val ( "8<H"+a$> 

40 Next I 

45 Poke 8chFE79,&HC9 
50 Poke &hFE7A,&H00 
60 Poke fehFE7B, 8cHD2 
70 Poke ?<hFE79,&HC3 
80 Data 3A,88,FD,FE,C7,CA,00,00,C9 

REDAKTIONELLE KOMMENTARER. 

Vi har lavet en smule om i 
programmet for at sikre at 

computeren ikke går ned. 

Linie 45 

Skal sikre 100% at der ikke sker 
noget hvis der kommer et interrupt 
før vi har defineret færdigt. 

Linie 70 

Denne linie aktiverer rutinen og 
må derfor FØRST ligge et sted i 
programmet EFTER at resten af 
rutinen er defineret. HUSK DET '!! 


Hej fra lohnny 3. SiIkeborg. 


RUTINEN virker ikke i programmer 
hvor interruptet er afbrudt (DI) 
eller hvor programmet har 
omdefineret Hooket. 







*-*--*-* SHADE-SHAPE -*--*--*--* 


SHADE SHAPE 


100 REIT)-SHALE-SHAPE- 

110 R£ffl-UISX-GRAFI k ENBELOS Ilt 

1 20 REff) - SVNTOYEN 1 988 - JOHNNY 

B — 

1 30 R£fTl- 

140 CLEAR 200:COLOR 15,4,4:SCREEN 2 

,2 

150 Lim P<11):R£ST0R£ 

1€0 LIME (38,0)-(143,72),1,8F 
170 OPEN "GRP;" FOR OUTPUT AS #1 
180 L$="-SHADE-SHAP£-" 

1 AO FOR k*1 TO 60 .-READ A45.-FOR J=0 T 
O 11 

200 P*=miL*<A$, (J*2)+1 ,2) 

210 P(J)=VAL("ÅH"+P$) : A/EXT J 
220 FOR 1=0 TO 11 STEP 4:A=P(I) 

230 8=P<l+1):C=P(l+2):D=P<l+3) 

240 LIME <A,B)-<C,D),1;NEXT l:NEXT 
k 

250 POINT (103,98),1,1 
2C0 POINT (75,105),1,1 
270 POINT (160,170),1,1 ;C=2 
280 FOR 1=1 TO 1 3 :PSET ((l*8)+32,3) 
,1 

290 COLOR C:PRINT#1,mib*(L$,I,1) 

300 C=C+1:IF C=1G THEN C=2 
310 IF INk£y*<>"" THEA/ 330 
320 A/EXT I .-GOTO 280 
330 SCREEN 0:COLOR 15,4,4:£A/L 

340 RED1 TEkENING - 

350 DATA 5C5ES27DSD3B5C5ESD22SD38 
360 DATA SL224652575846525158S234 
370 DATA SD38A234S22SS234384C4652 
380 DATA 3B4CA710SD0SA710254CSD0S 
390 DATA 465E254C2571465E25583864 
400 DATA 254L2558257D2571SDBF257L 
410 DATA A78ASD8FA7A3A78SADA8SL8F 
420 DATA SDSBBDAEC8A7BDAEC823C8A7 
430 DATA C8238D1DA72S8D1DA734A710 
440 DATA C823A734SD476764SD8FSD47 
450 DATA 82S8SL8FB23BS2S88D358DAE 
460 DATA 8D35A741A78SA741823FA78S 
470 DATA A78SAL8FS28SS24D5165A28S 
480 DATA 51715165<12<155171<12AES2A5 
4S0 DATA 2571A2AE467751713S7151G5 
500 DATA S2A238718LA8A2A88AASA2AA 
510 DATA 86A7S2A782A5S2A5S2A37FA3 
520 DATA 7BA1S2A18CSF78SF74SD8SSL 


530 DATA 85S870S86DSS82SS7FS76SS7 
540 DATA 66S578S577S362S35FS174S1 
550 DATA 708F588F578L6D8L6S88548B 
560 DATA 508S668S62874L874S855F85 
570 DATA 46835883578142813E7F547F 
580 DATA 507L3B7D377B4C7B4S7S347S 
5S0 DATA 3077467742752D752S733E73 
600 DATA 387125712S6F3E6F426D2C6L 
610 DATA 306B466B4S6S336S37674D67 
620 DATA 68653A653D63656362614161 
630 DATA 455F5E5F5D5L455L41586158 
640 DATA 665S3L5S53576S576C555755 
650 DATA 5A53715374515E51614F774F 
660 DATA 7S4D654L68488048834S6C4S 
670 DATA 704786478845744577438E43 
680 DATA A24178417F3FS63FSA3D823L 
6S0 DATA 8638SD38SA3S8S3S8L37S737 
700 DATA S435S135686755675A6S6F6S 
710 DATA 72685C68606L766D7A6F636F 
720 DATA 67717D71807368736F758475 
730 DATA 8877727776798B798E7B797B 
740 DATA 7L7LS27DS27F807F8381S281 
750 DATA S28388838885S285S2878F87 
760 DATA 3S574F574B55365531534753 
770 DATA 45512E512A4F414F3D4L274D 
780 DATA 27483C48404S2B4S2E474447 
7S0 DATA 48453245364348434F47 3S41 
800 DATA 3C3F523F563D403D44385S38 
810 DATA 5E3S473S4837613765354F35 
820 DATA 52336833683156315S2F6F2F 
830 DATA 732D5D2L602876287A2S642S 
840 DATA 67277E27872568256F238423 
850 DATA 88217221 761F8C1 F8F1D7A1D 
860 DATA 7D1BS31BA71A871A8417AA17 
870 DATA 9E1587158B13011305118E11 
880 DATA S30FA50FA20LA60DAA0BA00B 
8S0 DATA AC31A731A72FB02FS42DA72D 
SOO DATA A728B8288C2SA72SA827C027 
SI 0 DATA C425AF258223C823C4218627 
S20 DATA B91FC11 FAB8BA48BA1 8BOE8B 
930 DATA B28FSD8FA1SI82S7B2S3A4S3 
S40 DATA A8S5B2S582S7A8S7AFSS82SS 
S50 REfD -STOP- 











FORBEHOLDT POSTVÆSENET 


^^SOFT MED POST 


Bugbyte 

MSX-versioner af de kendte arcade spil. 

Rally-X 33.- 

Pac-Man - den originale 38.- 

Capcom 

Gunsmoke - det vilde vesten er blevet 
endnu vildere, som sherif kan du kun 
stole på dig selv, og ramme banditei— 
ne før de rør sig; i western-byen, 
ved jernbanen, i bjergslugten oq på 
floden de er alle vegne ~ 144.- 

Code Masters 

Pro-Snooker - billiard 1/2 spillere 38.- 

Bmx Simulator - Fuld fart frem gennem 
grusbanen, kør din modstander i sænk 
Inden han gør det rnod dig, 1/2 spi. 38.- 

Endurance Games 

International Karate - karate hele 

jorden rundt, 1/2 spillere 68.- 

Grandslarn 

The Flintstenes - Fred og Barney vil 
bovle, men først må stuen males med 
et (pensel-) egern og holde øje med 
Pebbles; tag del i Freds weekend 
problemer, 4 baner; Yabba Dabba Do 128.- 


Dunkshot - Basketball, 1/2 spillere 215.- 
Hole in One Professionel - bedste golf, 

2 baner m. hver 18 huller + lav egne 
baner, 1/2 spillere 277.- 

Hole in One Special - MSX2, 2 sæt 18 
huls baner, 18 golfkøller, 3 spil¬ 
typer for i/2 spillere, 128K 295.- 


Mirrorsoft 

Tetris - et ikke almindeligt puslespil, 
brikkerne falder ned fra oven og du 
skal rotere og flytte dem før de når 
bunden, hold overblikket ellers når 
du ikke langt, russisk camp.spil 128.- 

Robtek 

Turbo 5000 - utility cartridge MSX1&2, 
diskmonitor, turboload bånd 4600 baud, 
printe)—dump af alle MSX1&2 skærm¬ 
typer + diverse bånd/disk rutiner 425.- 

U.S. Gold 

lOth Frame - bowling for 1 til 8 spil,, 
med korrekte regler og m. bla. muliq- 
hed for at skrue kuglen "68.- 

Indiana Jones and the Temple of Doom - 
efter den kendte eventyrfilm. Tag din 
tyrepisk, storm domrnedags ternplet for 
at befri børnene og redde den magiske 
Sankara sten 144.- 

Anglosoft 

Print X’press - Lav plakater, postkort, 
brevpapir oq design af udskrifter rn. 
figurer og 19 tegnsæt; figurer, bog¬ 
staver og sprites kan defineres - 
bånd og disk: 355.- 

Kuma 

Machine Code Tutor & Monitor - Z80 
maskinkodes opbygning og udførelse, 
en hjælp maskinkode begynderen 135.- 


Bøqer 

Argus MSX applications 132.- 

Programrning in MSX Basic 132.- 

Ideas for MSX - 45 spil oq grafik 115.- 
The MSX Red Book - bedste'bog om 

maskinkode på MSX 148.- 

5.25" neutral disk, 2 sidet, 20 stk. 110.- 
3.5" neutral disk, 2 sidet, 10 stk. 140.- 


Alle priser er inkl. dansk morns. Forbehold 
for trykfejl og pris ændringer. GRATIS 
forsendelse ved forudbetaling med 
check/giro. Bestillinger under kr. 100.- 
tiliægges dog kr. 20.- ekpeditionsgebyr. 


Konami 

Green Beret - dybt inde i fjendtligt 
territorie er dine kammerater taget 
til fange i en lejr, som elitesoldat 
må du alene befri dern, cartridge 144.- 
Vampire Killer - MSX2, Dracula er til¬ 
bage, Simon Belmont må kæmpe sig vej 
gennem 18 dele af det djævle besatte 
slot; kæmp med pisk, sværd, økse oq 
kamp stjerner, 128K "295.- 

Salamander - 3.del i kampen om planeten 
Nemesis, som nu er under angreb af 
Salamanderne; nye våben, 1/2 spil., 
ekstra lydchip 277.- 


Ring 01 39 39 94 mellem 16-20 mandag til 
lørdag, eller send en check eller en giro 
pa gironr. 345 96 32 med dine bestil¬ 
linger. Oplys evt. telefonnr. 

Salg til hele Skandinavien. Ved køb fra 
Sverige/Norge indbetal den danske pris på 
et postgiro-kort, og skriv hvad du ønsker 
på bagsiden. 

DATACRAFT 
N.J. Fjords alle 20 
DK-1957 Frederiksberq C 
tlf. 01 393994 




